

*' tst 

o 

{ TEST shit to dump neat ovector stuff ) 

HEX V» VERB ADR 

SUBR NEW I NT R B L.DAX, B I MX, A L MOV, B I...BAX, B I NX, 
VERBADR SHOD, PCHL, 

CODE ZAMMER NEWINTR Y LX IX, NEXT 
i LSfiT ZAMMER 5 


MAL ; 
i OR * 

U [“•VI 

DUP NOWC OVB@ 

R” : ** . 

DUP MOV 

-JR OVBA .. 

D~ " 

BUP NOV 

ID OVB# .. 

BIS- - 

" DUP DISTANCE OV@ H. 

DD“ " 

DUP DE 

D... TAD I ST OVS H„ 

MAXIM' 

: " DUP 

MAXD 1ST OVBU 1- 

V * t 

dup yx 

OVA H „ 


vv ove 

H . -CR ? 


h H MOV 






file: •- ve 
B L K ~ U 

Oi < VECTOR FIELDS ) . “ **OGGBUG" C VLENGTH 8 - O VLEM 
11 DECIMAL VLENGTH SO INTR NO INIC ( INITIAL P08 AND 
2:; NO NO WE NO NOWC i CURRENT ROW AND COLUMN ) 

3!NO NOWD ( CURRENT DIRECTION ) 

4!( NO NXTR NO NXTC ) < NEXT' ROW AND |OLUMN ) 

5i( CUSTOM VECTOR ROUTINE GOODIES ) 

6 1 NO BA8EX i + 

7 ! NO BASES 1 +■ 

8 1 NO DELT'AX H 

9 INC* DELTAY t + 

i 0 I NO MAXDJ8T MAX'D I ST NOWR - O POSLEN 
11. 5 MC-- DISTANCE 13- 

12 ! NO" DEI...T ADIST 1* BELT AD 187 NOWR - 0 : SNATLEN 
1.31 ( MO AC CD I ST 1+ ) 

14 ! NO MEMDIST NO MEMR NO MEMO NO MEND .> 


0 1 

( MI 

JRI:: l 

CI..1ST 

0M VI 

ECU 

1R F I EI...DS 5 


1 

1 NO 

cu 

SVEC 

1. i 

CU: 

TI"0M VECTOR E 

;0UT X NE ADDRESS ) 

•*> 1 

NC~ 

MY 

TYPE 

( VE' 

CTOS 

| TYPE INDUE A 

;T0R ) 

3 

NO- 

MY 

FLAG 

{ DU 

ILD 

IN ME A TO FLU 

:0 > NO F'L.AGCODE 

4 ! 

NO 

MY 

FACE' 

% -i- ' ( 

WHi" : 

V!" I LOOK LIE 

:e in the open ) 

5 

NC- 

vc 

OR 1.+- 

( H 

y o: 

TROUTINE CELL 

Y A 

l 

6 1 

NO 

BE 

HIND 

1 "I- ( 

FES 

..LON BEHIND ! v 

IE ) 

•y • 

NO 

AH 

CAD 1. 

■!- ( 

FELL 

...0W AHEAD OF 

ME ) 

y i 

NO 

V1 

SFI...AG 





9 

I. “! ■ i 

.o"“ 

ML El MG 

iTH 




:10! 

ML El 

93 "f 

H SO 

HOB: 

sv r 

TO AS SMS V 


i l 

NO 

VI 

RGIN 





;i. 2 

NO 

DI 

ST-- .1. 

( PEI 

EV .! 

:i i stance: ) 


:l 3 

NO 

DI 

b f"'* f"‘ \ 

rns 

plai: 

1 El MEN1" FACTOF 


14 

NO 

8N 

AT'CHE 

R :i + 




1 ''I 

:!. i- i 


HL.ENG 

U'H - 

. 




CMC MORE UN!I DUE VECTOR STUFF' ) 
1 1MLENGTH AHEAD (9= I'TYSLAVE' 


EUSC- FNDPTR F'NDPTR C= TRACKPT'R 1+ NO TEEECK :l 
3 I BbH .1. NlJ C~ MY BUSS 
A ! NO FRONTIER i + 

51 NO- V.CSMAT NCOLS + O TREES 

610 SO TPL MC= TPH NO TC NO "1"R NO T"D 1+ O 
7 ! TEL MNODES # C“ TDEPTH 70 O 8UEPLJJS 
81 TDEPTH TREES -f- SURPLUS +■ 


9! I. :• O MONLEN 


0 1 HI,. 

.ENGTH tO 

P1...ENGTH < 

x \ pl 

.EMO'T'H O 

F< VLENGTH < 

•*> l f 

•ltl> 1 *4 

BIT'S AND 

CODES ) 

3 ! ( 

VECTOR TYPES > 

4 I 0 

SO TYP 

NC= 1.1.TYF 


■“LAYERS VECTOR LENGTH ) 
REVEALERS LENGTH > 

NC-~ M.TYP O !<.TYP 



+ 


STH ) 
COL ) 







ILF 

.TL 

VE 






Lrs* 

0 

( 

HOS 

TAGIL 

AND 

■M.AYER STATE 

v'AR i ABI..ES ) 

1 

( 

THE 

HOS 

TAGE 

STATE VARIABL 

I > 



0 

Si.:-- 

HSF 

REE C 

HOSTAGE FREE 

> 


3 

MC 

= H 

3 A TP 

C HO 

STAGE ATTACHE 

D TO 

PLAYER > 

4 

NC 

= H 

3 ATM 

DROP 

i HOSTAGE AT 

TAGHF 

ID TO MONSTER ) 

l:;; 

( 

ASS 

I M C !.... 

AT T ON 

STATE VAR TAB 

....!£ ) 


6 

0 

so- 

AS:NOT < 

NOT ASSIMILAT 

ID > 


•7 

NC 

.= A 

SSIM 

DROP 

C FULLY ASS 

I MIL.! 

VIED ) 

o 

C 

PL. A 

YEES 

ASSIMILATION STAT 

I VAI 

i IABLE ) 

9 

0 

30- - 

A SC 

OOL < 

PLAYER IS SP 

IFRY 

) 

10 

MC 

ft 

SONT 

CiP DR 

OP < PLAYER I 

3 ON 

TOP OF HOSTAGE 

1 .1 








12 








14 

1 5 

i 







UP 

0 

( 

4 

TOIL 

STUFF 

) 



1 

X c 

:? NO’f l 

FTRUE 

VPTR f: HEX F 

"P'O 1 

IPTE 1 Ifend <:$: 


RAHMARK 
RAMHARK 
RAMMARK 
RAMMARK 


MLENGTH 

PLENGTH 


PR" 

}JR~ 


£;> f 

PI 




BKVL 


T KV 

FVV 


MLENGTH BR~ TV1 F 


RAML..EN C 
RAML..EN C 
RAMLEN C 
AMLEM C- TVVL VARHERE £ 


.. Y K 


VARHERE 
EARHERE 
AHHEEE C 


1 1 l 
12 I 

.1.4 ! 
i 5! 

B 5 

01 < MONSTER STIFF ) 

'! ! 

2 IRAMMARK MONLEN BR- MONV1 

3 ! MONLEN BR---' M0NV2 

4 I MONLEN BR- M0NV3 

5 : MONLEN BR- MONV4 

6 I RAMLEN C- liONVi... V A EH EIRE C~ MONVS 

7 I HOMLEN €- MONVBYTES 

8!STK> XL? NOT IFTRUE VPTR @ H. VPTR ! FfEND 
9i DEC IMAL ■ -.> 











FILE VE 
BLK'~ 6 

01 ( TREASURE VECTORS ) 

1 ! 

2 ! R All MARK HLEI^TH BR= TRSVI 

3 i MLENGTH BR= TRSV2 MLENGTH BR= TRSV 

4 ! MLENGTH BR» TRSV4 

0 ! RAMLEN C~ TRSVL VARHERE C~4 fRSVS 
6!MLENGTH C* TRSVBYTES 
7!4 C| TOTAL-JEWELS 

*:> * 

1 0 I 
:t 1 i 


01( HOSTAGE VECTORS 

1 : EAriMAEK I ILEiTOTH BR~ ! LOG V:l. 

2 ! H! LMGTiT BR~ HnSVE' HLENG'T I-1 BE‘“ HOGV 

3 ! HL.ENGTB BR~ I-L0GV4 

4 1 EAliLEN C~ HOSVL VARHEEE C** HOSVS 

5 ! HL.ENGTH i>“ HOSVBYTEG 

6 ! 4 C"- TOTAL-HOSTAGES 

7 STABLE HOSTAB HuSVl , H0SV2 * H0SV3 

!“'i ) 

91 ( 4RRHHHR5- ) 

1.0 ! H0SV4 D- 7'EM EM 

1 1 !.> 

1.2 i 


01 ( MORE NEAT' VECTOR STUFF > 

11 :: ZAP” VEST 0 M0NV4 DKGV M0NV4 . Bl< 

210 H0SV4 TRSVI M0SV4 . M1..EMGTH + FT 


I u i 

■I i 1 


:i 41 
:i. 5 5 


HfJSVA 0 * 


Vi... r FILL 








FILE - VE 
BLi<= 9 

0! ( SPECIAL VECTOR GE'T.VERS AND'PUTTERS > 

1 ! CODE PUSH 3 OCR 0 H MV I, H D MOV? Y PUSHX 7 vaddr LI YD 7 
2I N0WC Y L LDX, MOWR Y E LDX , Y POPX, H PUSH, D PUSH, NEXT 


4 

CODE 

PUSH: 

ce 

RD 0 H 

MV I, 

H D 

MOV 7 

Y 

PUSHX, 

5 

NOWC 

Y l... L 

DX 

, NDWR 

Y 

E 

LDX 7 

MOWD 

Y 

A LDX 7 

-J 

Y PDF 

: 'X, !-! 

PU 

3H» D 

PUS 

H, 

A E 

MOV, 

D 

PUSH, 

y 

CODE 

cooo 

( 

x c. ha. 


PC 

u) i t h VCOR 

3 

Q 

vaddr LHL 

D, 

VC OR 

D L 

X 3 

7 D 

DAD, 



:i. 0 

M A 

MOV, 

C 

l'i MOV, 

ft 

C 

MOV, 

H INX 

*> 


:l. i 

M A 

MOV, 

B 

M MOV, 

ft 

B 

MOV, 

NEXT 



:l, 2 

* SET 

'CO :! -i 

V 

COR V! 

5 






. 1 .3 











14 












vaddr LIV'D', 
NEXT 









BLK= 0 

0! c game: CONTROL.. PARAMETERS 5 
1!BV= NOBREAK 

2 ! V“ TRASHFLAG 

3 I V= GAME-OVER V~- GAME# 

4!V~ NPLAYERS V~ PLAYERUP 

5 IV~ INITIAL-LIVES 

6 ! V= REMAIN I NO-LIVES 

7!V~ PLAYERDEAD ( PLAYER NAILED BY MONSTER FLAG ) 

3 !V= PL.AYERVELO « PLAYER VELOCITY 5 

9! BO FREEZEFLAG < PLAYER MOTION FREEZE FLAG > 

.1.0! BVSMARTS ( MONSTER SMARTNESS FACTOR ) 

11!V- MONSTERCOUNT ('# OF MONSTERS FLOATING AROUND ) 

12!BV~ BANC BV= BANR ( POINT OF BANISHMENT FOR MONSTER > 

13!BV* IBMC BV~ IBNR ( POINT OF INITIAL RETURN FOR MONSTER ) 
14!.> 


0!( MORE VARIABUTS ) 

1. ; V TOT A!.... - C i J N M E 1 T S V ~ 0 L. D -CO M N E C T S 

2 ! V- TOTAL..RE VEA! .ED.GROTTOS 

3!V- KEY.THRESHOLD 


4 ! BV 

5 1 0 

~ KEY.STATUS 

SO KYNONE NO KYSHOW h 

IO KYOF 

•EN NC t " KYGONE DROP 


6 i O 

7 1 V" 

TOTAL...PATHS 

REVEALED.PATHS ( # OF 

PATHS F 

:EVEAL.ED TO PLAYER Si 

0 FAR ) 


8 ! BV-- REVEAL. ••ACT IVE 

9 ! V- START.COL V= STOP-COL... 

10!V~ FOUNDIT BO THATSALL 

11 1 DECIMAL .:> 

12 ! 

14 ! 


BLJ<~ 2 

0!< FREEZE AND UNFREEZE ROUTINES ) 

1 1SUBR -FREEZE FREEZEFLAG M EXT, M INR, RET, 

2!SUB!4 FREEZE? FREEZEFLAG EDA, A ANA, RET, 

3 ! CODE FREEZE'!!-! FREEZE CALL , NEXT 

4!CODE UNFREEZE FREEZEFLAG H LXI, M DOR, 0<, IF, 

5!NEXT 


0 M MVI, THEN 













FILE 

BLK® 

,0 

1 


= in 

o 

i NEW SQUARE 
F= s n r t ! 


ROOT ROUTINE ) 


2!SUER sqrt <ASSEMBLE 
3! :!. A MV 1, 1 B LX I, 1 0 LX I, 

4,0.ABEL s«irt 1 A ANA, D DSBC, RZ, RC, D DAD, B INX, 

51 XL: H0 1 B DAD, A I MR, XCHG, s=irt] JMPR, ASSEMBLE> 


6 


INX, 


10 
11 


:!. 4 
15 


BL.K= 1 

0! < 16 BIT INTEGER DIVIDE ROUTINE:: M M UN/ Q R ) DEC I MAI... 

1. ! FORWARD /ZERO FORWARD IDV50 FORWARD IDV60 
2 ? FORWARD IDV.I.O FORWARD IDV20 FORWARD IDV00 FORWARD IDV40 
3! 8UBR uns-div «A$SEMBLE L C MOV, H B MOV, D A MOV, 0 H LX I , 

4! E ORA, „ ZERO ,JRZ, B A MOV, 16 B MV I, 

5.! LABEL IDV 1.0 C EALR, RAL., H DADO, D DSBC, 

6!LABEL IDV20 CMC, IDV50 JRNC, , 

7! LABEL IDV30 IDV1.0 CUN2, IDV60 JMPR, 

S!LABEL IDV40 C RALR, RAL, H DADC, A ANA, D DADO, 

9 !IDV30 JRC, IDV20 JRZ, 

10!LABEL IDV50 IDV40 DJNZ, D DAD, A ANA, ( MAKE IT POS 5 
11!LABEL IDV60 C RALR, RAL, A D MOV, C E MOV, 

12 ! LABE!.ZERO RET, ASSEMBLED- 

131SU.BR UNSDTV H PUSH, D DSBC, CY> IF, 0 D LXJ, H POP, ELSE, 

14 Hi POP, unsdiv CALL, THEM, RET, CODE UN/ EXX, . D POP, H POP, 

15 i UNSDJV CALL.., H PUSH, D PUSH, EXX, NEXT DECIMAL . 

B !...!<•" 2 

oic compute: delta for i coordinate: . a ..ear vector > 

:l. 1 C FIRST A NEGATION SUBROUTINE > 

21SUBR OMPHL H A MOV, CM A, A H MOV, 1.. A MOV, CM A, A L MOV, H IN 


41 ( IN:: HI... ""TARGET, DE-TIME, BC=START ) 

51SUBR CDEL.TA B PUSH, A ANA, D DSBC, CY~, IF, UNSDIV CALL, 

61 ELSE, CMP HI... CALL, UNSDIV CALL» CMPHL CALL, XCHG, CMPHL CALL, 
71XCHO, THEN, B POP, B DAD, RET, 

Si DECIMAL.. > 


1 1 1 
:i 21 
13 1 
1 4 1 

t ^ I 













FILE: 

BL..K 

0 

1 


= NM 
0 

( MESH PARAMETERS ) CSTKD 

336 NCOLS / COLSIZE 180 NROWS / C- ROWS I ZEE 
40 C~ COLGUARD 28 C~ ROWGUARD 10 C= CIR--RAD 

8 C- HOLE-RAD NROWS' I.. C« START.ROW 

COLSIZE COLGUARD ~ C~ COLDEV ROWSIZE ROWGUARD 


.... | 


EOWDEV 


7 1 r 

eOLCENT 

COLSIZE 

COLE 

I ZE 

2 / -!•■ 168 . ? 

O i * 

i M 

o t 

ROWCENT 

ROWSIZE 

* ROWS 

I ZE 

2 / f- 107 . ? 

1.0 1 t 

COMP «! X 

COI .CENT 

COL,DEV 

•”> / 

SOLDER RND . t 5 

L 1 I 3 

COMP s Y 

ROWCEMT 

ROWDEV 

2 / 

CO!....DEV RND - -i- ? 

[3; 

COMP!XY 

COMP! Y 

SWAP CC 

MPs X 

SWAP ; 

j. 4 ;■ si 

TO .> 






Of I MESH MATRIX GOODIES ) 
t ! 0 SO" NOD X NO NODXH 

21 NO" MODY NC~ NODYH NC~ MBX :H- NO WBY 3 + 
3 ! NO™ MPLO 7 •!• 

4!NC= NDXO 7 + 

5 ! NO- NDYO 7 + 

6 I NO CONFLG NO' YOON 

7 i NO DRAWFL.G NO DRAWMSK 

8 ! MC““ ^TREASURE 1 + 

911 + C“" iMODSIZ 

10 ! NODS I Z NNODES *• O' MODEMAT i S J ZE 
1 1 ! NODEMAT:: SIZE BA"= NODEMAT .>' 


O! ( MODE ZAMliERS ) 

1 ! ( SUBB node""- D= ROW E* COI... C= DISP» OUT HL.« 


SID B MOV 3 B IMR, 
4 I LABE!. MO 1 NCOLS 


UBR nods A <ASSEMBLE D 
NCOLS MINUS A MVI, 
ADI, NDJiMZ, E ADD 


PUSH, B PUSH, 

A TNR, A B MOV, 


5 I MODS. 

Z MINI 

S H LX I 

NODSIZ D 

LX I 

7 




6 ! LABE! 

N i: 

DAD, N 

"•2 D...INZ, B 

DAL 

7 0 

NODEMAT B 

L X I ■> 

B' DAD 

7 1 B POf 

> D PC 

P, RET, 

ASSEMBLE: l> 






8\CODE 

NODE"'" 

EXX, B 

s OPi H POP 

D 

POP 

!.'... D MOV, 

node"" 

CALL 

9! H PUS 

H, EXX 

, NEXT 







0 ! SURE 

no tied"" 

node"'" 

■ ALL, D PUS 

5! 1, 

MPl.i. 

i D LX I, D 

DAD, 

D POP 


i 4 5 
i 5 ! 


RET > 








FILE*“ NM 
3 

0 i ( TEST'i REL AND HOVE; NODE ) 

;l. ! ( D-ROW, E=*COL, OREL COL ROW REL TEST; REL .. DIST ) 

21SUBR tests re 1 C A MOV, MP1...0 ADI, A C MOV, node A CALL i 
3 ! M A MOV , RET, 

4! CODE TESTS REL EXX, B POP., H POP, D POP, L D MOV, tests 
5!A L MOV, 0 H MVI, H PUSH, EXX, NEXT 
6 ! ( MOVES NODE TABLES > 

7! DATA xth'l 1 B, 0 B, l B, .1 B, 1 B, ~1 B, 0 B, 1 B, 

8! DATA vtb'l 1 B, I B, 1 B, 0 B, 0 B, .1 B, -.1. B, -1 B, 

9,'SUBR moves node B PUSH, ( C~B.TR, D=ROW, E-COL ) 

1010 B MV I, vtb'l H LX I, B DAD, M A MOV, D ADD, A D MOV, 

1 ilxtb'i H LX I, B DAD, M A MOV, E ADD, A E MOV, B POP, RET 
1.21 CODE MOVES NODE EXX, B POP, H POP, D POP, L D MOV, 

13! moves node CALL, D 1... MOV, 0 D MVI, D H MOV, 

. 14 ID PUSH, H PUSH, EXX, NEXT 


BL 


01 ( STUFF > 

1 I s NODE! NODE-'"- ! ? 

21 s MODE® NODE-'" & 5 
3! s NODEB© NODE""- BL " 

4S i CLEARS NODEMAT 0 0 NODEMAT NODEMAT? SIZE 


TL 


1.0 I 
11: 
1. ! 

13 I 

14 I 
:l. 5 l 


BU<“ 5 

01( ESTVALDIR ) 

:!. I F~ EVDL... 

2LSUBR estva'I.d ir- < ASSEMBLE NOWR Y D S...DX, MONO Y E I...DX, 
310 NOWD Y MVIX, 

4 I LABEL EVDi... NOWD Y A LDX, MPLO ADI, A C 
SIM A MOV, A ANA, RiMZ, NOWD Y IMRX, EVDL 

6 I CODE ESTVALDIR B PUSH, Y PUSHX , va.d d r I... 1 Y .U, e s t va I d x r 


MOV, 
JMPR 
..I YD, 


i't d \v; 

, ASSE 


CAL., 

MBLE 


i v Pi", 


OPX, B POP, NEXT 


10 I 
1J. I 
12 ! 

13 I 

14 I 


v 

i 






NM 

A 

MODE MATRIX MANIPULATORS ) 

SET s DRAWN ROLL DRAWMSK MODE-'" SET 5 
TEST! DRAWN ROLL DRAWMSK NODE-'"’ BIT 5 
SETs GROTTOS DRAWN DEAWFLG NODE-"" BONE 
TEST!GROTTO? DRAWN DEAWFLG NODEB© ; 







10 ! 
11 I 





FILE ■= CD 
BL!<= O 

0!( COMPUTE DELTAS FOR STORAGE ROUTINE ) 

'!. ! ( THIS ROUTINE COMPUTES DELTA FOR ONE COORDINATE ) 

2!SUER CDELI < DE=R,C B=COORD PTR» ODXR ) 

31B PUSH, D PUSH, 

4 IB PUSH, C A MOV, MPL..0 ADI, A C MOV, node A CALL, M L MOV, 


51.0 H MV I* B POP, L A MOV, A ANA * OO, IF, 

61H PUSH, D PUSH, move* node CALI..., 

71B C MOV, node"'- CALL, M E MOV, H I MX, M D MOV, XCHG, 


S 1 XT HI..., 
9 IH POP 
3.0 1 THEN, 


XCHG, node-' CALL.'* M C MOV, H I NX, M B MOV, 

( TARGET ) 0 POP, ( TIME ) CDEL.TA CALL, E A MOV, 
D POP, B POP, A B MOV, RET, 


i 1 


15 


i 


01( SET 

DELTAS EOF 

DOT 

T COORD I NAT 

Ls I J-, a I, ] 

VEN PATH 

2! NBX B 

5ETDELTS 

MV I, CDEL. :i 

CAL. 

....-, B PUSH, 

C ft MOV, ND 

XO ADI, 

3 1 n a d -a" '■ 

CALL, B M 

MOV, 

B POP, NBY 

B MVI, CBE 

LI CALL.., 

4 1B PUS! 

•1, C A MOV* 

MDY 

".) ADI, A 0 

MOV, 


5 1 node""- 

CALL, B M 

MOV, 

B POP, RET 

, 



i 

I 

:i o i 


MOV, 


14 1 


Oil COMPUTE DELTAS FOR WHOLE MATRIX > 
11F~ MAKELP 


2 1 CODE MAKECELTS < ASSEMBLE! B PUSH, 
310 D LX I, 0 C MVI, 

4 1 LABEL MAKELP SETDELT8 CALL* 


5tL' A MuV i A IMP, 
61E A MOV, A INR, 
7 ID A MOV, A INR, 


A 0 MOV, 8 CPI, MAKELP JRNZ, 0 C MVI, 

A E MOV, PLOTS CPI, MAKELP JRNZ* 0 E MVI, 
A D MOV, NE0W8 CPI, MAKELP JRNZ, 


81B POP, NEXT ASSEMBLES 
91 3 FIXVGEH NC0L.3 0 DO NR0W3 0 DO 
301J I MODX NODES XADJ J I NBX NODE! 

1 1 1J I NODY .NODE© YAD,.t J I NBY NODE! LOOP LOOP 
12! r MD FIXVGER MAKEDELTS 1 ! 






FILE « VR 
BLK~ 0 

0!< HOPPED UP 8 BIT MPY ROUTINE ) 

1!( THIS ROUTINE IS USED TO MULTIPLY DELTA BY DISTANCE 
2!< ADDING RESULT TO INITIAL DISP ) 

3! ( Hl.~ INITIAL DISP, BE~- DELTA, A~ DIST ) 

-I ! SUBR HOT MPY RRC , CY, IF, D DAD, THEN, E SLAR, D RALR, 


5 ! RRC, 

CY, 

IF, 

D 

DAD, 

THEM, 

■ E SLAR, 

D 

RALR, 

6!RRC, 

CY, 

IF, 

D 

DAD, 

THEN, 

E si.AR, 

D 

RALR, 

7 i RRC, 

CY, 

IF, 

D 

DAD, 

THEM, 

E SLAR, 

D 

RALR, 

8iRRC, 

CY, 

IF, 

D 

DAD, 

THEN, 

E SLAR* 

D 

RALR, 

9 ! RRC i 

CY, 

IF , 

D 

DAD, 

THEN, 

E SLAR* 

D 

RALR, 

:i. 0 ! RRC, 

CY, 

IF, 

D 

DAD, 

THEN, 

E SLAR, 

D 

RALR, 

1. 1. ! RRC, 

CY, 

IF, 

D 

DAD, 

T!- IEN, 

RET, 



:i. 2; SUBR 

SOU 

ARE : 

Xfi. 

38 CA!. 

!...., A 

E MOV > 0 

D 

MV I, 


1.3 ! HOTMPY JMPR, 



i a: ■ 


0 

1 

i CAL.CUL 

ATE X Y PO 

SI 

TION OF OBJECT FRC 

ii v i DI 

ST 

ALICE, BASE, 

AMD ) 

SUBR CAL. 

CXY 0 C MV 

I, 






3 

NOW 13 Y A 

L..DX, ME MR 

Y 

CMPX, 0<>, IF, C 

I NR, 

A 

MEMR Y SIX, 

THEN, 

4 

MOWC Y A 

LDX, MEMC 

Y 

CMPX, OO, IF, C 

I NR, 

A. 

r-j 

MEMC Y SIX, 

THEN, 

5 

NOWD V A 

LDX, MEHD 

v 

CMPX, OO, IF, e 

I NR, 

A 

MEMO Y STX, 

THEN, 

6 

DISTANCE 

1+ Y A LD 

V 

A i 

A B MOV, MEMOIST 

Y CT' 

PX 

, OO, IF, 


7 

C INR, A 

MEMOIST Y 

g 

TX, THEN, 





r“j 

C A MOV, 

A ANA, 0~ 


IF, 





Q 

VX Y E !., 

DX, VX 1+ 

Y 

D L.DX, 





0 

VY Y !.... L 

DX, VY 1 

Y 

H LDX, 





1 

Kb. 1 v 

THEN v VE 

SIJPDATE VL 

OG 

IC8TAT Y SETX, 






:i 3 : 

i s; 


O! ( MORE CUTE CA!.CULATTONlf ) 

1:B A MOV, 

2! BASEX Y L LDX, BftSEX 1+ Y H LDX, DELTAX Y E 1...DX, 
3! DELTAX 1+ Y D LDX , HOTMPY CALL., L VX Y 8TX, H VX 
4!H PUSH, 


5! BftSEY Y I... LDX, BASEY :H Y H LDX 
6! DELTA Y 1+ Y D LDX, HOTMPY CAL...!...., 
7!D POP, 


DELTAY Y E LDX, 

1^ yy y c; y)( f y y y 


i. "i" 



10! 
11 ! 
121 
. 1 . 3 ! 
14! 
15! 








FILE = VR 
BLK= 3 


0 

( SET 

BASE 

POSITI 

ON ) 




i 

( IN 

DE--ROW 

, COL > 






SUBR 

SEFT'BAS 

EPOS B 

PUSH, 

D PUS 

-1, 



NBX C 

MV I, 

n o d & ' '■ 

GALL., 

v i E MOV, 

H I MX, M 

4 

M C MOV, H 

I NX, M 

B MOV 




s.r 

E BAG 

EX Y S 

TX, D 

BASE X 

1 i" Y S 

TX 

7 

iC. 

E VX 

Y STX, 

B VX 

:i + v s 

TX, 



■y 

C BAS 

EY Y S 

TX, B 

BASES' 

1+ Y S 

TX 

7 


C VY 

Y STX, 

B VY 

1+ Y S 

r x, 



Cj 

D POP 

, B PC 

P -, RET 

7 




0 

SUBR 

FREEZE 

BASE A 

XRA, 




1 

A DCF 

TANOE 

Y GTX-, 

ft ms 

TANCE ■ 

M- 

Y STX, 


( ft A 

CCDXSI 

Y STX 

, ft AC 

GDI ST 

1 -i - 

Y STX, > 

3 

A DEL 

TADI91 

Y STX 

, ft DE 

.TAD IS 

T 

1+ Y STX, 


1 A 


H I NX, 


BUT 

0 


1. 1 


: 4- 


( ROUTINE TO ESTABLISH NEW BASE POSITIONS AMD DELTAS: ) 

( FIRST A SIGN ROUTINE ) 

SUBR SONA ft ANA, 0 ft MVI, EPS A DOE, RET, 

SUBR N.EWPATH 

NOWR Y D LDX , l' s 10WC Y E 1..DX -, 

SETBASEPOS CALL, MOWD Y A LDX, i'IPL.0 ADI , ft C MOV,, 
nods""’ .CALL, M A MOV, ft MAXDIST Y SIX, 8 D LXI, D DAD-, 

M A MOV j A 'DEL-TAX Y SIX, SOMA CALL, ft DEL TAX 1 Y STX», 

D DAD, IT A MOV, A DEI..TAY Y STX, SGMA CALL, A DEL.TAY 1+ Y STX 
RET , 


B1 b 

0!( ROUTINE TO CAUSE OBJECT TO ARRIVE AT A NEW POSITION ) 
i!SUBR ARRIVE DI, 

2! NOWR Y D LDX, MOWS Y E LDX, NOWD Y C I...DX-, 

31 move; node- CALL, 0 NOWR’ Y SIX, E SHOWS Y STX, 

4 1 SETBASEPOS CAS.L, FREE ZED ASF CALL. * 


61 


10 1 


14 1 

15 I 













FILE = VE 
BLK= 6 

0!< DISTANCE PHASE ACCUMULATOR > 

1 ! ( distance: has both delta and acceleration > 

SIC IN A--'-- TIMEBASE TO USE ) 

3iSUBR DISTPft TBDEST TCHGSTAT Y BITX, RNZ, 

4 I DISTANCE Y L L..DX, DISTANCE 1+ Y H LDX, 

^ 5 I DEL TAD I ST Y E LDX, DEL TAD I ST 1+ Y D LDX.-, 

61C ACCDIST Y C LDX, ACCDIST 1 + Y B LDX, ) 

7!BEGIN, D DAD, C XCHG, B DAD, XCHG. > A DOR, 0=, END, 


81C IF BEYOND MAX DISTANCE, SET AT 
9! MAXDIST Y A LDX, A ANA, DO, IF, 
iO!CY~, IF, TBDEST TCHGSTAT Y SETX, 


MAX DISTANCE AND FLAG ) 

H A MOV, MAXDIST Y CMPX, 
MAXDIST Y H LDX, 0 !.... MV I, 


It! THEN, THEN, E DEL TAD I ST Y STX, D DEL. TAD I ST 1+ Y SIX 
12!L DISTANCE Y STX, H DISTANCE 3+ Y STX, 

;!. 3 I RET i 


BUT 

0 

1 


10 
1 :). 

1 

3. 4 
15 


( DISTANCE VECTORING ROUTINE AND VGER VERBS 3 
5 C~ TB-DVECT < TVMR0PT2 BIT TO ACTIVATE DISTANCE VECTORING 
SUBR DISTVEST PSW PUSH, B PUSH, 

B A MOV, DXSTPA CALL., 

CALCXY CALL, B POP, PSW POP, RET, 

SUBR NEWVEC'T.T'B.DVECT TVMR0PT2 Y BITX, v*ct JZ, 

H PUSH, CUSVEC Y L LDX, CUSVEC 1+ Y H LDX, XTHL-i RET, 

XC? NOT CFTRUE 

HEX NEWVECT 89D9 C 8956 3 U! DECIMAL < ******* STUFF IN LINK 
I FEND 

CODE DVECT--OFF Y PUSHX, vaddr LI YD, TB.DVECT TVMR0PT2 Y RESX 

Y F'OPX , NEXT 

CODE DVECT.ON Y PUSHX, vaddr LIYD, 

D'ESTVECT H LX I, !.... CUSVEC Y STX , H CUSVEC 1+ Y SIX,. 

TB-DVECT TVMR0PT2 Y SETX, Y POPX, NEXT 


01 C CODE FOR 'TASKS TO INTERFACE TO NEW GOODIES ) 
1 ! CODE ESTPOS DI , B PUSH, Y PUSHX, vaddr LIV'D, 


21N0WC Y E LDX, NOWR Y D LDX, 

3!SETBASEPOS CALL* 

4IFREEZEBASE CALL, 

SLY POPX, B POP, NEXT 
6S < TRAVEL AWAY FROM NODE ) 

7 I CODE DEPART:NODE DI, B PUSH, 

8 ! MEWF’ATH CALL, 

91Y POPX, B POP» NEXT 
Kill ARRIVE MODE ) 

111 CODE ARRIVE:NODE DI, B PUSH, 
12 SARRIVE CALL, 

131Y POPX, B POP, NEXT 


Y PUSHX, vaddr- LIYD, 


Y PUSHX, vaddr LIYI 









FILE = VR 



( REVERSE DIRESTION ROUTINE 
SU8R REVERSEsDIRECTI ON 



NOWR Y D LDX, 

NOWC Y E LDX, 

NOWD Y C !. 

..DX, 

3 

rfi o v © » n o d <s AL. 

0 A MOV, CMf 

V, 7 AMI, 


4 

D NOWR Y SI X , 

E NOWC Y STX- 

A NOWD Y ' 

STX,- 

5 

MEWPATH CALL, 

MAXD 1ST Y H I...J 

5X, 0 L MV 

e , 

6 

DISTANCE Y E 

...DX, DISTANCE 

-I- Y D LDX 


7 

A ANA, D DSBC 

, L DISTANCE Y 

STX, H DO 

STANf 



1.0 
1 :l 
12 
i 3 
14 


CODE RUSHt SOURCE BI, B PUSH, Y PUSH5U vaddr LI YD 
DISTANCE Y A LDX, DISTANCE 1+ Y ORAX, OC>, IF, 
REVERSEsDIRECTION CALL, 

THEN, 

Y POPXv B POP, NEXT 







} 


FILE = WR 
BLK* 0 


9 
10 
:i i 
12 

14 

15 


C VHE SLEZR2A ) 

HEX 

SUBR SLEZR2A ( does pat offset and re labs ) 

( in- BC= masic/exp , HL= v , DE~ >•: » IX®. pattern addr 

( out. HL= new vscr&dr * C~ new vmaoic ) 

i n vert xv? CALL, 1... SLAR^ H R ALR i !.... 81. AR, H RA1.R, ( *4 for v > 

i nvert? CALL, 

H PUSH, XCHG, 0 X D LDX, 0 E MVI, ( x offset ) 

D SRAR, E RARR, 0 SRAR, E RARR, < /4 for x offset > 

MRFLOP C EH Tv 0<>, IF, D DAD, ELSE, A ORA, D DSBC, THEN, 

XTHL., ( rush X+of f, HL<-Y • ) 1 X D LDX, 0 E MV I, ( v offset ) 

MR FI..IP C BIT, 0<>, IF, D DAD, H DCX, 

ELSE, A ORA, D DSBC, THEM, 

D POP', 


0!( VMR ) 

II < v can not set here larger then 256 ) 

21 H A MOV, 0 H MVI, A L MOV, H DAD, H DAD, H DAD, 

31 H DAD, D PUSH, L E MOV, H D MOV, H DAD, H DAD, ( *64 5 

4! D DAD, l 4SO 5 XCHG, H POP, ( x ) 

5i L A MOV, < SAVE BIT CNT ) H L MOV, 0 H MVI, D DAD, < x+y ) 
61 RLC, RLC, 3 AMI, 

71 MRFLOP C BIT, 0<>, IF, MEG, 0®, IF, H DCX, THEN, THEN, 

81 3 AN I, A E MOV, invert? CALL., C A MOV, FC AIM!, E ORA, 

9!A C MOV, ( HL= screen address ) RET, 

101 DECIMAL .> ■ 

1 . 5 1 
1.2 I 
1 3 1 

•f /! 3 

T 1 


BL.lv 

0 

1 


10 


< MY OWN EASY TO USE WRITE ROUTINE ) 

BV"" : I NT ERST AT 

CODE WRITER ft XRA, 1NTERSTAT Sift, INTCRT IN, 

X PIJSHX i. D POP, EXX, X POPX , B POP, H POP, vadd CALL, XTHL, 
xad-i CALL, XCHG, H POP, ( HI.- Y DE= X ) 

SLEZR2A CALL, X INXX, X IMXX, 0 X E LDX, X INXX, 0 X D LDX, 
X INXX, write CALL» EXX, 

INTCPT IN, INTERSTAT STA, 

D PUSH i X POPX, NEXT 
DECIMAL ..> 










FIL 


SC 






BLK 

r:; 

0 






0 

i 

! ( 

« 

SCORING 

GOODIES 

) 





i 

1 RAMMARK Si. 

.ENGTH E~ 

Pi 

TV RAML.EN C> 

•• P1SL VARHERE t> 


3 

1 RA 

4MARK SI. 

..ENG IT ! R~ 

p-';.' 

TV RAML.EN C= 

-• P2SL. VARHERE H> 

P2SS 

4 

I •—* 
t 

A" P1SCF 

: 2 A- P2 

SCR 




b 

i « 
i 

8A-" APt:! 

ICR 9 BA" 

AP 

28 CR 



A 

t » 
t •- 

; S s V 0 

05 OS PIS 

!.... F 

ILL 0 P2SS4 

‘20!,. FILL ? 


"*/ 

1 4 

I •* 

CLEAR*. Si! 

XTRES 0 F 

1 SC 

T ZERO 1 Pi; 

ICE ZERO 



810 P2SCR ZERO 1 P28CR ZERO CsSsV t 


> I 

i 0! 
1 :l ; 


O! C T ASK TO DISPLAY PLAYER ONES SCORE ) 

1 I s DISPPiSCR ;TASKS 

2! 0 PIECE (:• 1 Pi SCR 0: 1 API. SCR 7 BIN-OAST; 
318 0 API SCR B! TO 1. API SCR B! 

4 10 API SCR OSUPR 
5!~160 X! 99 Y! 

61 PLOP.ON 

7 i 7 XPAND 

810 API SCR PATTERN! 

9 I STRING “ 

0 1 

. 1 1 s BUMPP1 SCR 0 P :i. SCR @ 1 Pi SCR € ROT 0 D+ 
.2 1 Pi8V DtSPPISCE S 
3 1 

. 4 !.> 

15 i 




0 P 


BEKT” 2 

01C TASK TO DISPLAY PLAYER TWOS SCORE ) 
ill D.CSPP2SCR I T ASK s 

3 18 0 AP2SCR B! 48 1. AP2SCR Bl , 

410 AP2SCR OSUPR 

61 PLOP.ON 

• 717 XPANDi 
S!0 AP2SCR PATTERN! 

91 STRING ? 

iOl's BUMPP2SCR 0 P280R © 1 P2SCR © ROT 0 D+ i P2SCR ! 
11!P2SV DISPP2SCE i 

J2!s IMCSCORE PLAYERUP © IF BUMPP2SCR ELSE BUMPP1SCR 

14 1 

15 1 


THEN 5 









FILE = SC 
BLK= 3 

Oi< TOGGLES LIFE, DISPLAY REMAINING LIVES, AND Bill 

1. > s TOGGLE: LIFE INITIAL.LIVES @ -2 / + 16 * 

2190 96 R0TY1 WRITER 5 

"i { 

4SE D sR i L 

5!REMAINIMG.LIVES @ 1- DUP IF 

610 DO I TOGGLES LIFE LOOP 
7!ELSE DROP THEN ? 


9 ! : BITE s DUST REMA INING-LI VES 5. - I 
10 ! REMA INING-LI VIES t DUP IF 1. - TOGGLE: LIFE 

11!ELSE DROP 1 GAME.OVER ! STOPrne 1+Bi THEN ? 

12 : 


14 

15 


DUST ) 










FILE » NGii 


BL 


( 

DA 


0 

NEW CONFI 
COM CM 


.ICT 

1 B, 


CHECKER INs DE=R,C 
0 Bj 1 B, 0 S3, 0 B 


B---D OUT! 
6 B, 0 B 


A= FLAG ) 
A B, 


215 Bv 0 B, 7 • Bt 0 B, 0 B? 0 B, 0 B, 2 El, 

31SUBR CONFLICT? B PUSH» 0 B MVI, CONCM H LX I, 8 DAD, 
4 Hi A MOV, A ANA, 0=, IF, B POP, RET, THEM, 


5! D PUSH, H PUSH, A C MOV, move; nods CALL., 

6! H POP, 8 B LX I, B DAD, M A MOV, MPL.0 ADI, A C MOV, 
7 inode-'- CALL, i'T A MOV, D POP, S3 POP, RET, 


8iCODE CONFLICTS CHECK EXX, B POP, H POP, D POP, L D MOV, 
91 CONFLICT? CALL, A !.... MOV, 0 H rSVI , H PUSH, EXX, NEXT 


1.0 


1 :i I < CHECK FOR LEGAL NODE ) 
12 1 < D“ ROW, E~ COL. RETURNS 
13!SUBR movecheck 


SET IF LEGAL COMBO > 


D A MOV, NROWS CPI, RNC 


MOV, NCOS..S CPI, RET, 


BL.!< : ~ 1 

OiC VARIABLES FOR MATRIX GENERATOR ) 
L ! V- GMRC V “ GMD V-~ GMNRC 
21V" RCX V- RCY V- NRCX V= NRCY 


7 I 


11 I 
1 2 ! 
13 i 
1 4 1 


01< ADD PATH ROUTINE ) 

1 1SUBR addpath GMRC SDED, C A MOV, GMD STA, ( STUFF STUFF ) 
21 MPL.0 ADI , A C MOV, node"'- CALL, M A MOV, A ANA, RNZ, 

3!GMD LDAv A C MOV, movesnode CAI.L, GMNRC SDED, ( SET NEW R 

4 ! iti ci v o c I", e c k C- A !....!...., R M c , 


51 GMRC LDEI.L CONFLICT? CALI...., A ANA, RNZ, 

61 TOTAL-PATHS L.HL.D, H I NX, TOTAL-PATHS SH1....D, ( 

71( COMPUTE DISTANCES AND DELTAS ) 


3 1 NODX C MV I, GMRC L.DED , node"'" CALL, 

91M E MOV, H IMX, M D MOV, H INK, RCX SDED, 
1.0 IN E MOV, H I NX, M D MOV, RCY SDED, 


li ! GMNRC I....DED, node A CALL., 
121M E MOV, H IMX, M D MOV, 
131M E MOV, H INX, M D MOV, 


H INX, NRCX 
NRCY SDED, 


SDED, 


BUMP PATHS ) 


14 1 . 







FILE ~ NGM 
BLK- 3 

'01! COMPUTE DISTANCE 5 

1iRCY LHLD» A ANA, D DSBC, L A MOV, SQUARE CALL, H PUSH, 

21NECX LDED, RCX LHLD, A ANA, D DSBC, L. A MOV, 

3! SQUARE CALL.., D POP, D DAD, sqrt CALL, A B MOV, ( B= DIST ) 

4! GMRC LDED, GMD I....DA, MPL.O ADI, A C MOV, nod*-"" CALL, B M MOV, 
5! ttCON C MV I, node-"' CALL, M I NR, 

6! GMD 1....DACMA, 7 AMI, MPL..0 ADI, A C MOV, 

7 ! G M N R C L D E D, n o d e C A!.... L» 

SIB M MOV, #CON C MV I, node-'- CALL, M I MR, RET, 

9! CODE ADD:: PATH EXX, B POP, H POP, D POP? I... D MOV, 

10 i add path CALI., EXX, NEXT 


CM( ASSM CONNECTIVITY MARKER ) 

1 !BV= MAKCOM 

2!F= MR PI" F~ MCI.P F~ MDI....P F“ NOSH F ~ NXTRC 

3 S DSDE MARK s COMNEC TIVI TY CASSEMBLE EXX, 

dll.ABEL. MEPT A XRA, MAKCOM STA, .0 D LX I, 

5! I.ABEL. MCL..P COMFLG C MVI, node"'- CALL, M A MOV, A ANA, 

61 NXTRC ,JRNZ, ( SKIP IF ALREADY CONNECTED > 

"7 i MPL.O CONFLO - B LX I, B DAD, 0 B MVI, C B- DIR CTR ) 

81 LABEL MDI...P M A MOV, A ANA, NOSH JRZ, ( KICKOUT NOT REL. 
91B C MOV, H PUSH, D PUSH, 

1 01 moV£'S nod® CALI.■, ( GOTO NEIGHBOR ) 

• 11!CONFLO C MVI, node A CAI.L, D POP, M A MOV, H POP, 

121A ANA, < IS NEIGHBOR MARKED? ) NOSH JRZ, 

13! CONFLO C MVI, node""- CALL, 1 A MVI, A M MOV, MAKCOM STA, 

14 I TOTAL..CONNECTS LHLD, H I NX, TOTAL...CONNECTS SH1...D, 

15!NXTRC JMPR, .> 


01 C TRY THE NEXT' DIRECTION > 

1! LABEL NOSH B I NR, H I NX, B A MOV, 8 CPI, MDL.P JRNZ, 

21( GOTO NEXT GROT.FO ) 

31 LABEL NXTRC E I NR, F A MOV, IMCOLS CPI, MCL.P JRNZ, 0 E MVI, 
4 ID I MR, D A MOV, NROWS CPI, MCL.P JRNZ, 

5! ( KEEP SCANNING UNTIL. THANGS STABILIZED ) 

6!MAKCOM LDA, A ANA, MRFT JRNZ, EXX, NEXT 
7!ASSEMBLED 


10 
11 
1.2 

1.4 
15 











FILE * GM 
BLK= 0 

01< CONNECTIVITY TESTING ) 

11s ZAH BKGV vaddr ! NCOLS 0 DO NEOWS 0 DO J I 
2!COMPS XY J I NODY NODE! J I NODX NODE! LOOP LOOP 5 
31 s NSC CON FLO MODE-"’- BONE 1 
41s T"C CONFLG NODEB© 5 .> 

A } 

”7 t 
/ t 

t"-i » 

O » 

9 ! 

10 1 


!i. 4 ! 


ELK- 'J. 

0!C CONNECT INDICATED ZONES TOGATHER ) 

1 ! ” CRND PUP 0= IF 5 END ELSE DUE' WOOLS 1- * IF 5 END 
2! ELSE 8 END 'THEN THEN ” 

31! ADDS ANOTHER TOTAL-PATHS © BEGIN NCOLS 2 . END :i+ 

4 1 NEONS 2 . END 1+ CRND ADDs PATH DUP TOTAL-PATHS @ 

510 END DROP ? 

61! MAKE!MAZE CLEAR:NODEMAT ZAM 
71i TOTAL-CONNECTS ! 

81NCOLS 2 . END 1+ DUE START-COL ! 0 Ns 0 

91NCOLS 2 . END 5+ STOP.COL ! 

101NCOLS 0 DO MEOWS 0 DO J I CRND ADD sPATH LOOP LOOP 
111 BEGIN 

1211 C IN IT ) NCOLS 0 DO NEOWS 0 DO ,J I #CON NODES© 2 
131J I CRND ADD sPATH DROP 0 THEN LOOP LOOP END 
14!BEGIN MARK!CONNECTIVITY TOTAL-CONNECTS © i = WHILE 
1.5 1 ST ART-COL © 0 CRND ADD: PATH REPEAT —-> 

01( KEEP COOKING UNTIL EVERYONES CONNECTED ) 

1. 1 BEG IN 

2!NCOLS 0 DO NEOWS 0 DO J I TsC NOT IF 

31J I CRND ADD:PATH THEM LOOP LOOP 

41 MARK:CONNECTIVITY TOTAL-CONNECTS © NNODES = 

5 1 END 

614 GAME# B© 4 MIN . 4 * DUP IF 0 DO ADDS ANOTHER LOOP 

71 ELSE DROP THEN ? 

91( ARE WE IN THE START CHAMBER ) 

101J STARTsCHAMBER? 

11 12DI.IP START-ROW * IF START.COL © - IF 2DROP 0 ELSE i 

121ELSE DROP' 1 THEN 1 










FILE 

0 

1 


9 
10 
l l 
12 
13 
:l. 4 


= LD 
0 

( **** LOCAL DISTANCE **** ) 

< LOCAL DISTANCE ROUTINE 5 

( THIS ROUTINE CONFUTES THE DISTANCE BETWEEN TWO OBJE 


C IN* IX* FOLLOWER IY= LEADE 
F= DIFB F~ TRYM F= SAND F 
SUBR LDIST CASSEMBLE 
NOWC X E 1...DX» NOWR X D LDX, 

( DOES COCO AND RI=RO ? ) 

E A MOV, NOWC Y CMPX, TRYM jrnz, 

D A MOV, NOWR Y CMPX* TRYM JRMZ, 

( ME AND HIM BOTH HAVE SAME ORIGIN ) 

{ ARE WE ON THE SAME BRANCH? ) 

NOWD X A LDXNOWD Y CMPX, DIFB JRNZ, 

( YES SIR . WE ARE ON SAME BRANCH ) 

DISTANCE 1+ Y A LDX, DISTANCE 1+ X SUBX 


:R OUT* A=D I ST, B“ REV FL 
IMF IN 


CIS ) 
AU ) 


0 B MVI, BABS JMP, 


EL. 


o 


10 
11 


1 4 

15 


( WE ARE ON DIFERENT BRANCHES OF THE SAME. ORIGIN > 

LABEL DIFB DISTANCE 1+ Y A LDX, 

DISTANCE l-i- X ADDX, i B MV I* BABS JMP, 

LABEL. TRYM NOWD X C LDX , H PUSH, moves node CALL, ( TO BEST > 
H POP, MAXBIST X A LDX, DISTANCE 1+ X SUBX, ( REVERSE BIST ) 
A B MOV, ( AND SAVE IT IN B ) 

D A MOV, NOWR Y CMPX, INFIN JRNZ, 

E A MOV , NOWC Y CMPX , I IMF IN JRNZ , 

C A MOV, CMA, 7 ANI, NOWD Y CMPX, SAMD JRZ, 

< I AM ON A PATH LEADING ME TO OTHERS ORIGIN ) 

B A MOV, DISTANCE i+ Y ADDX, 0 B MVI, BABS JMP, 

( I AM ON COMPLEMENTARY PATH THAT OBJECT IS ON ) 

LABEL SAMD DISTANCE .1+ Y A LDX, B SUB, 1 B MV I, BABS JMP, 

( OBJECTS ARE FARTHER THEN WE CAN EASILY DETERMINE ) 

LABEL INFIN 127 A MVI, RET, 

ASSEMBLE?.> 


01 ( DISTANCE ROUTINE FOR LEST REFORMER TO USE: ) 

1!( IF IT GETS INFINITY BACK IT WILL TRY SWAPPING X AMD 

3! SUBR LRDJST L.DIST CALL, C TRY IT ONE WAY ) 

41127 CPI, RNZ, ( RETURN IF NON INFINITE > 

SIC ITS INFINITE SO TRY IT THE OTHER WAY AROUND ) 

SIX PUSHX, XIIY, X POPX, L..DIST CAl L, 

71C BUT SWITCH BACK TO OLD POINTER SCAM BEFORE GOING HOI’ 
SIX PUSHX, XTIY, X POPX, RET, 
y! 

10 I 
i i i 
1.2 I 


14 












FILE * L.D 
BLK= 3 

0 I ( NEW FINDCLOSE ROUTINE ) 

1!DECIMAL 

2 ! F= SR CL F= FCt.D 

3:SUBR FINDCLOSE <ASSEMBLE 

410 HQSTAB H LXI, EXX, 127 C MVI» EXX, 

5! LABEL. SRCL M E MOV, H I NX. M D MOV, H I NX 
61 FOLD JRZ, D PUSH, X POPX > ASSMSV X A LDX, 
7 1 SRCL. .JR1MZ v HOSSV X A LDX, HSATP CPI, SRCL 


8! L.DIST CALL, EXX, C CMP, CY, IF, ft C MOV, 
91 X F'USHX, H POP, EXX, B A MOV, EXX, ft B MO 
10! EXX, SRCL JfiPR, 

Hi LABEL FOLD EXX, RET, 

12 1 ASSEMBLE!)' 


:i. 4 
15 


BI..K* 4 

(!)! ( CHECK F3!NDCLOSE, AND IF FOUND LIGHT UP 
ISSUER LOOKFOLLOWER < SEARCH LIST 3 FINDCLO 
2!C A MOV, MAXASSM CPI,. ( IS FOLLOWER CLOSE 
31RNC, ( KICKOUT IF TOO FAR AWAY ) 

4 1DISPF Y CMPX» FiC, < OR TOO CLOSE > 

5!H PUSH, X POPX, < IX = FOLLOWER 3 
6!Y PUSHX, D POP, ( DE= LEADER ) 

71 ( LINE HER IN > 1... BEHIND Y SIX, H BEHIND 
S!E AHEAD X STX, D AHEAD 1+ X STX, A8SIM AS 
9 1 DELI" AD I ST Y ft LDX , A DEL-TAD I ST X S TX, 

10!BELTADIST 1+ Y A LDX, A BELTADIST 1+ X ST 

11 IB A MOV, A ANA, RZ, C NEED WE REVERSE FOL 

12 ID PUSH, H PUSH, Y POPX, REVERSE:: DIRECTION 

13!SUBR LOOKASS BEHIND Y A LDX, BEHIND 1+ Y 
141D PUSH, H PUSH, X PUSHX, LOQKFOLLOWER CAL 
15IX POPX, H POP, D POP, B POP, RET, .> 


, D A MOV, E ORA, 
ASMOT CPI, 

•JRNX, 

V, THEN, 


FOL .LOWER ) 
SE CALL..., 
ENUF? ) 


1 ■!■ Y STX, 

SMSV X MVJX, 

X, 

LOWER? ) 

CALL., Y POPX, RET, 
ORAX, RNZ, 8 PUSH, 







FILE = OT 
BLK= 0 

01< CHECK FOR ONTOP ) 

1!F= ONTL. 

2!SUSP ONTOP? ^ASSEMBLE 
3!0 HOSTAB H LX I, 0 C MVI, 

4! LABEL ONTL. M E MOV, H I MX, M D MOV, H I MX, 

5!D A MOV, E ORA, RZ, 

61D PUSH, X POPXv HOSSV X A LDX, HSATP CPI, ONTL. JRNZ 
71B PUSH, LRDIST CALL, B POP, ONTOPLMT CPI, CY, IF, 
Oil C MVI, THEM, A B MOV, 127 CPI* OO, IF, 

91 BIST-1 X SUBX, 

10 10=, IF, i C MVI, ELSE, (X, IF, 1 C MVI, THEN, THEM, 

I. 1. !B BIST 1 X STX, ONTL JMPR, 

.12 1 ASSEMBLES 

14 1 

J. 5 1 


B !...!<=■ 1 

0! ( PLAYERS INTERRUPT LEVEL.. ONTOP CHECKER > 
118UBR P11....0TR 


21ASSMSV Y A LDX, A ANA, OO, IF, 

31ONTOP? CALL, C A MOV, A ANA, RNZ, 

41A8C00L. ASSMSV Y MVIX, C CLEAR ONTOP STATE ) 

5!THEN, LOOKASS CALL, < CHECK MY ASS ) 

61 RET, 

71SUBR PILOTC X PUSHX, PILOTR CALL* X POPX, RET, 


10 
i 1 


14 


01 < PROROGATE LEADERS' DELTA DOWN THRU 1.1ST ) 

11< IY# LEADERS VECTOR > 

2 1 F= CDLP SUBR COPY BELT S' < ASSEMBLE 

3 1 BEHIND Y E LDX, BEHIND M- Y D LDX, 

4' 1 LABEL CDLP 

5 ID A MOV, E ORA, RZ, D PUSH, X POPX, 

61L. DELTADIST X STX, H DEI, TAD I ST 1+ X STX, 

71 BEHIND X E LDX, BEHIND H- X D LDX, CDLP JMPR, 
81 ASSEMBLES 


10 
11 
12 

13 

14 


THEN, 










FILE = OT 


0 

( 

MAKE ALL MY 

FRIENDS 

HALT R 

I GUT 

MOW ) 



1 


-■= EHN F= RELP 








.id 

SUBR HALTNOW < 

ASSEMBl. 

E 







DI. B PUSH, D 

PUSH, H 

PU 

31-1 , 

X PUS 

HX, Y 

PUS 

HX, 

4 

0 

HOSTAB H I...XI 

, PLYRV 

Y 

...XIX 

V 




o 

!.... 

ABEL RELP M E 

MOV, I- 

IN 

X, l v 

D MOV, H 

I NX, 


A 

D 

A MOV, E ORA 

, EHN JR2, 

D F 

1.!SH, 

X POP 

X, 


■ V 

H 

3SSV X A LDX * 

MS A TP 

CPI 

,. RE 

LP JRNZ, 




A 

XRA,. A BEHIND X STX 

» A 

BEHIND 3 

+ X S 

TX, 


9 

A 

AHEAD X STX, 

A AHEA 

D 1 

-I- X 

STX , 




1 0 

A 

DELTADIST X 

STX,. A 

DEL 

TAD I 

ST 1 -i 

X ST 

X, 


1 1 

A 

SNOT ASSMSV X 

MV IX, 







12 

L 

GDI ST CALL, A 

DIS'T'-l 

X 

STX » 

RE1...F 

JMPR 



13 

!.... 

ABEL EHN A XR 

Al ; A Bfc: 

HIND Y 

STX, 

A BEHIND 

1 !• Y STX, 

14 

Y 

POPX, X POPX 

, H PDF 

, D 

POF 

■, B F 

OP, A 

SONT 

OP A MVI, 

15 

A 

38MSV PLYRV ■+ 

ST A .■ F 

ET, 

ASS 

EMBLE 

::>.> 




BL 


0 I ( INTERFACES TO 
1 ! 


I'ERSE WOR1..D ) 


2 : CODE PRCtPDELTAS DI, X PUSHX v 
3!vaddr LIYD, 

4 ! DELTA01 ST" Y L LDX, DEL TAD IGT 
51C0PYDELTS CALL, 

6! B POP,. Y POPXv X POPX* NEXT 


10 ! 
1 1 I 
1 2 1 


Y PUSHX-i B PUSH,. 
1 Y i 1 L.BX :• 


14 I 









FILE - HF 
BLI<“ 0 

OiC INTERFACES TO THE TERSE WORLD ) 

1 i CODE JOINS LINE D'E , X PUSHX , Y PUSHX, B PUSH, 

2! vac! dr LIYD, HSATP HOSSV Y MVJX-, PLYRV Y LXIX, 
3!HALTNGW CALL, 

41B POP, Y POPX, X POPX» NEXT 




10 
1.!. 
12 
13 
i 4 
15 


BL.K= 1 


OiC ASSIMULATED NODE ROUTINE ) 
i!F= GOHM F= VIRG 


4 


SUER HASSIM CASSEMBLE DI, PSW PUSH» 
DI ST'V ECU' CALL» 

LOOKASS Cftl.L, 


51 VIRGIN Y A LDX, A ANA, OO, IF, 0 VIRGIN Y MVIX, 
6!THEN, 

7!( AM I AT THE END OF THIS PATH? ) 


TBDEST TCHGSTAT Y BITX, GOHM JRZ-. 


NO 


KICKOUT 


10 
i j. 


VIRG 


\ 



B !..,.!<= 2 

0!< MORE ) 

1!LABEL VIRG 

21 X PUSHX, H PUSH, D PUSH, B PUSH, C GRAB FARMS FROM I....DR ) 
31N0WR B LX I, Y PUSHX, H POP, B DAD, XCHG, 

4! AHEAD Y L LDX, AHEAD 1+ Y H LDX, ( HL” FL. ) 

5!H PUSH, X POPX, 

61B DAD, POSLEN B LXI, LDtR, 

71C SET H03 DISTANCE TO M UNITS LESS THAN LEADER ) 

8!DISTANCE 1+ X A LDX, DISPF X SUBX, OC, IF, A XRA, THEN, 
91A DISTANCE 1 +' Y STX, A XRA, A DISTANCE Y STX, 

10iTBDEST TCHGSTAT Y RESX, < DON'T ALARM TERSE ) 

11 IB POP, D POP, H POP, X POPX, 

12!LABEL GOHM PSW POP, RET, ASSEMBLES.> 

13 i 
.14 ! 

15! 







FI L.E 
BLK= 
0 
j. 


HF 


( FOLLOW MONSTER ROUTINE ) 
SUBR MONF DI, B PUSH, 

Y PUSHX» H POP, NOWR B LX I, B 
SNATCHER Y !.... LDX, SNATCHER H- 
SNATLEIM B LXI, LDIR, A XRA, A 


DAD, XCHG, 

Y ! I LDX, B DAD, 
DELTADI ST Y STX, 


5!A DELTADIST 1+ Y STX, 
6iCALCXY CALL, 

7!B POP, PSW POP, RET, 


1 o 

l :l 
12 

13 

14 

15 


BU<=? 4 


0 ! 
1 ! 

; ( SPE 

CIAL 

MASTER 

VECTOR I 

MG ROUT I ME FOR HOSTAGE: 


SUBR 

H ! V 

PSW PUSH 




3 I 

! H03SV 

Y A 

LDX, HS 

ATM CPI 

i MONF 

' JR 2, 

4 ! 

ASSMS 

V Y 

A LDX, A 

ASM A, 



5: 

! 0<>, 

IF, 

PSW POP, 

HASS I i v 

! JMP, 


6 ! 

I THEM> 

PSW 

POP, DI 

STVECT 

JI1P, 


7' 

! 

! . 






! 

! CODE 

LIVE C 

T.ON Y P 

USHX, v 

•addr L 

I YD, 

C) ' 

! H 1 V H 

LX I 

, L CUSV 

EC Y ST 

' X , H C 

:IJSVEC t i Y STX, 

j. 0 ! 

! TB.DV 

EOT 

TVMR0PT2 

Y SETX 

, Y PO 

PX, NEXT 









FILE = LFN 
BLK= 0 

( LOOK FOR NEARBY THANGS ) 

( HL~ RC IX = SUBJ RET 2 IF NEAR , NZ IF NOT 
SUBR NEARBY? NOWR X D LDX, JMOWC X E I...DX» 

D A MOV, H CMP, 0~■> IF, E A MOV, L CMP, 

RZv THEN, 

DISTANCE 1+ X A LDX, A ANA, 0=, IF, A INR, 
NOWD X C LDX, H 'PUSH,* tnove!nod« CALL, H POP 
D A MOV, H CMP, RNZ, E A MOV, L CMP, RET, 

( NEARBY LIST — HL"',= TARO HL= LIST RET Z = 
SUBR NEARBYLIST M E MOV, H INX, M D MOV, H 
D A MOV, E ORA, RZ, D PUSH, X POPX, EXX, 
NEARBY? CALL, EXX, NEARBYLIST JRNZ, 

1 A MVI, A ANA, RET, 


BLK= 1 

05( CODE ROUTINE TO DO NEARBY CHECK ) 

1!< C R LIST MIC? . T ) 

2! CODE MIC? H POP, ( HL-- LIST ) 

3!EXX, D POP, H POP, E H MOV, EXX, ( R,C ) 

4!X PUSHX, NEARBYLIST CALL, 0 H LX I, 0*=, IF, 
55X POPX, H PUSH, NEXT 

6 5 

7 5 DATA PCONFT MONVI , M0MV2 , M0NV3 , M0NV.4 , 
S5HOSV3 , H0SV4 , TRSV1 , TRSV2 , TRSV3 , TRS 

V t 

10 J s NOBODY5 HOMES YET? 2Df.JP PCONFT MIC? IF 1 EL 

11 !.-> 


y 

1 


4 

5 

6 


10 
:i. i 
12 

13 

14 

15 


15 


RET, THEN, 

7 

NONE NZ“ FOUND ) 
INX, 


H INX, THEN, 

H0SV1 •/ H0SV2 , 
>V4 , TV 1 , 0 , 

.SE 2DR0P 0 THEN 





FILE = I 
BLK" 0 


( PI...ACE TREASURE IN MAZE ) 

TABLE T/M TRSV1 , TRSV2 , TRSV3 ■, TRSV4 » 0 , 
TABLE l/l THESTAR , THESYM , THEJEWEL * THEFLOWE.R 


U 


y 


:L 0 
11 
j, ,c* 


0I( TASK FOR A HUNK OF TREASURE ) 

1 ! 

2!; TRS.T ?TASKS 20 RMD TIMER!-ON WAIT 

3!( MAKE SELF APPEAR ) 

4!ESTPOS 


5 IMYFACE V© ANIM! 1STWRITE 

61XOR.ON ZERODXDYAXAY 

7110 TIMEBSCALE! 

8 i SELF ITYFLAG V A FLAG i.ON GO DI C TREA-S ) ZEROTIMEB 

9ITREA.S 2000 IMCSCORE NULPAT ANIM! 1 TIMER!-ON 00 5 

10 !.> 

1 1 ! 


•t. i I 

1 5 r 

OS( PLACE TREASURE IN MAZE ) 

1!V= THESPOT 

2 is HIDE! PE I CIS THE8P0T ! BEGIN BEGIN 
3SMCOLS END NROWS RMD STARTs CHAMBER? END 
4!NOBODYsHOMEsYET? END 

5!2DUP THESPOT © NOWR OVB! THESPOT @ MOWC OVB! 

6! THESPOT © ROLL. >TREASURE NODE! THESPOT © TRS.T 5 

7!s HIDES TREASURE TOTAL.JEWELS 0 DO 

8!I T/I © I T/M © MYFACE OV! 

9!I T/M © HIDES PEICE LOOP 1 
10! s- TREASURES CHECK PUSHs OCR ^TREASURE NODE© DUP IF 
1. .1.1DUP MYTYPE OVB© T.TYP = IF 

121( JEWELS.REVEALED 1+! ) THEN 1 SWAP MYFLAG OVB! 

13!0 PUSHsOCR TREASURE NODE! ELSE DROP THEN ? 

.1.4 ! ; S 
15! 










FILE 
BL., Ki- 
Cs 
1 


6 


10 
11. 
12 

13 

14 


= RS 
0 

< ROUTE SEARCH ROUTINE ) 

( VISITED MATRIX GOODIES ) 

8UBR VIS? H PUSH»' B PUSH-.. Y PUSHX, H POP, 

E C MOV» B DAD, D A MOV, BIT"'- CALL, M ANA, 
SUBR SETVIS H PUSH, B PUSH, Y PUSHX, H POP 
B DAD, E C MOV, B DAD, D A MOV, BIT-- CALL, 
B POP, H POP, RET, 

( CLEAR OUT VIS BITMATRIX ) 

SUBR ZAPVIS B PUSH, H PUSH, VISMAT B LX I, 

B DAD, NCOLS DO, 0 M MVI, H INX, LOOP, H F 


0!( GENERATE TREE EMTRYS FOR ONE ENTRY > 

1!F= RUGLP 

2!SUBR OENTE <ASSEMBLE MPLO C MVI, node A CAL 

3 ILDAR, 7 ANI. A C MOV, 

4 1 BEGIN, H POP, H PUSH, B A MOV, 0 B MVI, B 
5!M A MOV, A ANA, 0<>, IF, D PUSH, moves nods 
6!VIS? CALL, O”, IF, < GENERATE NODE ) 
7ISETVIS CALL, 

.81MYBOSS Y A 120X* A TPL X SIX, MYBOSS 1+ Y i 
9 !E TC X STX, D TR X SIX, C TD X STX, 

101TREECK Y L LDX, TREECK 1+ Y H LDX, FOEKET!' 
11 I TEL. D LX I , D DADX , 

12! THEM, D POP, THEN, C A MOV, A I NR, 7 AIM I, 

13 I RET, 

14 I ASSEMBLE? 

15 !.> 

0!< ADVANCE TREE ONE DEPTH DOWN ) 

1 ! SUBR ADVI MYBOSS Y L. LDX , MYBOSS 1* Y H LI 
21H INX, H INX, M E MOV, H IMX, M D MOV, 

31OENTE CALL, MYBOSS Y L LDX, MYBOSS 1+ Y H 
41 TEL D LX I, D DAD, IM E MOV, • H I NX, M D MOV, 
51D INX, D A MOV, E ORA, 0=, IF, H INX, ELSE 
6 \L MYBOSS Y STX, H MYBOSS 1+ Y STX, ADVT JF 
7!--:i. X 0 MV IX, X IN XX, .1 X' 0 MVIX, X INXX, 

9 ! 

10 I 

11 I 


15 ! 


VISMAT B LX I, B DAD, 
B POP, H POP, RET., 

, VISMAT B LX I, 

M ORA, A M MOV-i 


Y PUSHX, H POP, 
*0P, B POP, RET, 


L, H PUSH, 8 B MVI, 

DAD, A B MOV, 

CALL, 


LDX, A TPL 1+ X STX, 
■I CALL, C END CHECK? ) 
A C MOV, LOOP, H POP, 


IX, 

LDX, 

£» H DCX» THEM, 
?NZ, 

RET, 





BLK= 4 


0 

( 

MORE PA 

IT 

! FIN DEI 

I ) 



:l 

r; 

s 

== TREEL..F 

F 

SCAN 

3K F"- SCAN 1 



k* 

£ 

IJBR BANG 

TF- 

;EE <AS: 

3EMBLE 



3 

i:: 

t 

RONTIER 

T 

E LDX, 

FRONTIER :H- Y L 

LDX, D PUSH, 

X POPX 

/{, 

\z 

i 

NDPTR Y 

1 . 

LDX, FI 

MDPTR Li- Y H LDX 

;? 


5 

1 ... 

A MOV, 

H 

ORA, Si 

I: AN 1 ,JRNZ, ADVT 

CAI..L, 


6 

y 

PUSHX, 

D 

POP, E 

FRONTIER Y SIX, 

D FRONTIER 1- 

- Y STX 

7 

A 

XRA, RE 

T , 






10 
11 

14 


RLI<~ 5 

0!( MORE ) 

1.1 LABEL. SCAN 1 0 B LX I, 

2! LABEL SCANBK M E MOV, C M MOV.. H I NX, 

3!M D MOV, B M MOV, M OCX, 11 B MOV, L C MOV, 

4SE A MOV, D ORA, 

5100* IF, XCHG, SCANBK JMPR, THEN, .1. A MV I, A ANA, RET, 
61ASSEMBLES 

81 CODE LOOKAHEAD Y F'USHX, D POP, X PUSHX, H POP, EXX, 

9ivaddr LIYD, BANGTREE CALL, 0*, IF, 

1010 H LX I, ELSE, H PUSH, :i. H LX I, THEN, H PUSH, 

1.11 EXX, H PUSH, X POPXi D PUSH, Y POPX, NEXT 


18 

OI- 

IS 













FILE 

BLK* 

0 

1 


If: 


( ROUTINE TO FIND BES 
( CHECK ROUTINE -- ARE 


PATH TOWARDS TARO! 


5EYE 
...DX, 


WE 

? INTR Y A I, 
E CMP» RMZ 
X, H FNDPTR 


HOME YET" 
DX v D CM! 

X PUSHX 
1+ Y ST X •. 


) 

RMZ, 
H POP 
RET, 


SUBR BULI 
INTO Y A 
L. FNDPTR 
: RECON 

BULL.8EYE? START SEARCH BEGIN SYNC DI 
LOOKAHEAD END TRACKPTR V! COCO ? 

CODE FOLLOWTRACK Y PUSHX, vaddr LIYD, 

, TRACKPTR 1+ Y H L..DX, 
M D MOV, H INX, H INX, 
, D TRACKPTR .!. I- Y GTX, 
NEXT ASSEMBLES -.> 


1 

TRACKPTR 

> y 

t... LI 

10 i 

M E MOV, 

H 

I NX, 

11 

E T'RACKF 

■TR 

Y SI 

12 ! 

Y F'OPX, 

H F 

•'OSH, 

14 ! 





H 

M 


I NX, 

!.... MOV , 0 H MV I , 






FILE = H 
BLK= 0 

0!( HOSTAGE TABLE, HOSTAGE INTERCEPT CHECKER ) 

1!( CHECK HOSTAGE INTERCEPT WITH MONSTERS ) 

2! DATA MONLIST MOIMVl , M0NV2 , M0NV3 , M0NV4 •> 0 , 

• 3!HEX 0202 DECIMAL C= XYHOST 
4!( HOSTAGES INTERCEPT CHECKER, RUMS AS HOOK ) 

5ISUBR HOS.MON? FREEZE? CALL, RNZ» EXX, 

6!MONLIST H LXI, XYHOST B LX I, CHECKS VECTOR:LIST CALL, 

7 100, IF, 

8!1 MYFLAG Y MVIX, < SET ME EATEN ) FREEZE CALL, 

9!X PUSHX, D POP, E SNATCHER Y SIX, D SNATCHER 1+ Y STX, 
10JY PUSHX, D POP, E MYSLAVE X STX, D MYSLAVE 1+ X STX, 

11 IHSATM HOSSV Y MVIX, HALTNOW CALL, 

12!1 MYFLAG X MVIX, C TELL MONSTER MOVE FLAG ) THEN, 

13'! EXX» RET, 

14 ! -.> 


BL.K= 1 

O! ( TASK FOR A TEST HOSTAGE ) HEX 400 C~ EXITVEL. DECIMAL 
1!C V= RECURADDR ? 

2!s H—T ?TASKS DI H.H~D DISPF VB! H.TYP MYTYPE VB! 

3IZER0TIMEB 20 RND TIMER!.ON WAIT DI 1STWRITE 

4! ESTPOS ESTVALDIR BEGIN DI 0 MYFI..AG VB! 

5!HOSSV VB© HSFREE CASE DVECT-ON 
6!HOS—B ANIM! XOR-ON 10 TIMEBSCALE! 0 TIMEBMAX! 

7! MYFLAG V"'- FLAG !-ON GO 
8!ELSE HSATP CASE 
91 ( pRTBli TIMEBMAX 1 ) 

10!CAPT-S HOS.A ANIM! JOIN sLIME 

11T3. VIRGIN VB! 0 TIMEBSCALE! 

12 ! MYFLAG V-'" FLAG !.ON HOS.MON? HOOK ! -ON 

13!500 INCSCORE HVECT ON GO 

14 !.-> 

15 ! 

O;< FOLLOW MONSTER TO NEW HANGOUT > 

1!ELSE HSATM CASE FREEZE!?! DRUG.S 

21 FLAG.OFF HVECT.ON 

3!HOOK.OFF 

4!ZEROTIMEB 

5! ( FOLLOW MONSTER TO ITS TARGET POSITION ) 

6!BEGIN MYFLAG V A FLAG!-ON GO DI FLAG? END 
7!ESTPOS ESTVALDIR 

8!UNFREEZE HSFREE HOSSV VB! ASNOT ASSMSV VB! 

9!ELSE DROP THEN THEN THEN 0 END 5 

10 !-.> 

11! 

. 12 ! 

13! 

14! 





FILE = H 
BL..K= 3 

0!C PLACE HOSTAGES IN MAZE ) 

1 ! s HIDE* HOS THESPOT '! BEGIN BEGIN . 
21NC0LS RMD NROWS RND STARTs CHAMBER? END 
3!NOBODY sHOME sYET? END 

4!THESPOT © NOWR OVBI THESPOT @ NOWC OVB! 
5!THESPOT @ H-T ? 

6!: JAILSHOS TOTAL.HOSTAGES 0 DO 

7iI HOSTAB © HIDESHOS LOOP ? 

9 ! 

10 ! 

11 ! 

12 ! 

13 ! 

14 ! 



FILE 

BLK= 

0 

1 


10 
:i. 1 
. 1.2 

14 

15 


u 

( VGS.interupt vector erase VERASE VERASEWRITE 
SUBR X OR--FLIP VQXPAND Y B LDX, VOMAOIC Y C LDX» 
VOPATH Y H LDX, 

• VOPAT Y L LDX, H INX, H INX, ( pat off set) H P 
VGSCRAORH Y H LDX, VOSCRADR Y L LDX, 
uiritep .JMPv ( erase it ) 


BLK 

0 

1 


10 
1 i 

14 

15 


1 

( ROUTINE TO LINK TO VGER WRITE ROUTINE ) 

SUBR WRITE.LINK 

VBNGWRITE VLOOICSTAT Y BITX, 0=, IF, INTCPT IN. 

TBINTCPT.CHK TVMEOPT Y BITX, OO, IF, INTCPT If 

A ANA, OO, IF, TBINTCPT TCHGSTAT Y SETX, 
TBMOVECT TVMROPT Y SETX, THEN, THEN, 

ELSE, VBNOWRITE VLOOICSTAT Y RESX., THEN, RET, 5 


BLK= 

O 


( CHECK“NEAR ) 

DATA PC ON PLYRV , M0NV1 , M0NV2 , MOIMVS , 
M0NV4 , TVl i TRSV1 , TRSV2 , TRSV3 , TRSV4 , 
H0SV1 , H0SV2 , H0SV3 H0SV4 , 0 , 


10 
1 1 

13 

14 

15 


) CSTK 

I..J.SH, X 


VWRITfS 









BLK 

0 

1 


4 


1 0 
11 . 

13 
:i. -"1 
15 


( SPECIAL WRITE ROUTINE FOR REVEALS ) 

HEX OCOC C= XYZONE DECIMAL 
F* RE ML F~ RE SI... F» LI ST END 

SUBR REVEALWRITE <ASSEMBLE 0 H LX I, H PUSH. ( MARK STACK ) 
( Y PIJSHX , H POP,. CONFTAB D LX I, D DAD,') 

PCON H LX I, 

LABEL REML M E MOV, H INX, M D MOV, H INX, D A MOV, E ORA, 
LISTEND JRZ, D PUSH, X POPX, 

VBNOERASE VLOGICSTAT X BITX, REML JRIMZ, 

VOPATH X A LDX, VOPAT X ORAX, REML JRZ, 


BLK= 4 


O 


10 
:i i 
12 


( MORE OF SPECIAL WRITE ROUTINE FOR REVEALS? ) 

XYZONE B LX I, 

PE OX IMITY.CHECK CAil.J...., REML JRZ , 

X PIJSHX, H PUSH, Y PUSI-iX > X PUSHX, Y POPX, XOR.FLIP 

Y POPX, H PDFS REML JMPR, 

LABEL. I.... ISTEND WRITE.L. INK CALL, 

LABEL RESL D POP, D A MOV, E ORA, transition JZ, 

Y PIJSHX, D PUSH, Y POPX, 

XOR.FLIP CALL» Y POPX, RESL JMPR, 

ASSEMBLED 

HEX 400 C= I. NITI AL#LEAP 

100 C~ RE WEI... 4 C= SHORTGOAL DECIMAL .> 


CALL 


J. D 


I.M. * % ’ 

CMC DRAW ARROWS TO REVEAL. OPTIONS ) 
t!HEX SUBR DRAWARROWS DI, B PUSH, X PUSHX, 

210 B MVI, BEGIN, 

3! B C MOV, noded^ CAI.L, M A MOV, A ANA, OO, IF, 

41DRAWMSK C MV I, node-'- CALL, M C MOV, B A MOV, 

DIBIT-"- CALL, C ANA, 0~, IF, B PUSH, D PUSH, 

SIB C MOV, 0 B MVI, QUIVER H LX I, B DAD, B DAD, 

7!M C MOV, H I NX, M B MOV, B PUSH, X POPX, 

81MBX C MV I, node-'" CALL, M E MOV, II I NX, M D MOV, H I NX, 

SUM A MOV, H I MX, M l-l MOV, A L MOV, 20 B LX I, 

10 * SLEZR2A CALL, X INXX, X INXX, 0 X E LDX, X INXX, 

1.110 X D LDX, X INXX, write CALL, 

1.2 ID POP, B POP, THEM, THEN, B I NR, B A MOV, 8 
13!X POPX, B POP, RET, 


CPI, CY--, END, 








file: 

BLK> 

0 

1 


3.0 
3.1 
i 2 

13 

14 

15 


-- R 
6 

( MORE ARROWHEADED ACTIVITY ) 

BV= ARROWFLO V= ARROWRC 

CODE ONARROWS REVEAL-ACTIVE LDA, A ANA,. Of, IF 
ARROWFLO LDA, A ANA, 0”, IF, 

Y F'USHX , vaddr LI YD, 

NOWR Y D LDX, NOWC Y E LDX, Y POF'X, 

ARROWRC SIDED, DRAWARROWS CALL, 

3. A MV I, ARROWFLO STA, THEN, THEN, NEXT 

CODE OFFARROWS ARROWFLO LDA, A ANA, 0<>, IF, 
ARROWRC LDED, DRAWARROWS CALL, 

A XRA, ARROWFLO STA, THEN, NEXT 


BLK- 7 

0! < HEADS.I GIST RE VE ALEE > 

3. ! HEX 5 HEADLIGHTS REVEAL 5 TASKS DI RE VEAL--ACT I VE BONE 
2! NOWC F'LYRV OVB@ NOWC VB! NOWR PLYRV OVB@ NOWR VB! 

3 ! NOWD F’LYRV OVB© NOWD VB i ESTF'OS DEPART s MODE 
4!MAXDIST VBS SHORTGOAL . MAXDIST VB! 

51 REVEALPAT ANIM! DC XPAND!-ON OR.ON 1STWRITE PRTBM TIMERMAX! 

6!INITIAL#LEAP DISTANCE V! REVVEL DELTADIST V! DVECT-ON 
7!REVEALWRITE ZGO DI 


10 
3 . 3 , 
12 
3 3 
3.4 
3 5 


BLK 

0 

1 


9 

3 0 
3.1 


OF PATHS REVEALED > 


SET 


( MORE HEADLIGHT REVEALER ) 

PUSH« CCRD TESTS DRAWN NOT IF 
REVEALED-PATHS 1+! < INCREMENT * 

THEM 

PUSHsCCRD SETsDRAWN 
ARRIVE3 NODE PUSHsCCRD COM 7 AND 
PUSHSCCR TEST’GROTTOS DRAWN NOT IF : 

GROTTOPAT ANIM! 1STWRITE OC XPAND! 

TOTAL-REVEALED.GROTTOS 1+! 

.1 TIMER!.ON REVEALWRITE ZOO DI 

PUSHSCCR SET sGROTTOS DRAWN THEN. REVEAL-ACTIVE BZERO 
DECIMAL -.> 


i DRAWN 
REVEAL 
IN 


-ACTIVE B! 


3.3 
14 
3.5 







BLK~ 9 

0!( REVEAL FIRST CHAMBER ) 

11 HEX 8V= UNROLL 
2!» INITIALsREVEAL 5 TASKs 
- 3SPL..YRV NOWR OVB<* NOWR VB ! 

4! PLYRV NOWC OVB@ NOWC VB I ESTF'OS DVECT-ON 

5! GROTTOPAT ANIM! 1STWRITE OC XPAND-! XPAND-OM XOR.ON 

6 ! 1 TIMER!--ON EEVEALWEITE ZGO 
7!PUSH:OCR SET:GROTTOsDRAWN 
8!13 UNROLL B! 

9! BEGIN 1 TIMER!-ON WAIT UNROLL B@ DUP VERBL. OUTP 4 + DUP 
101 UNROLL B! ODD - END 5 
11 ! 

12iDECIMAL .> 

13 1 

14 ! 

15! 





FILE = K 
BLK* 0 

0!< KEY MONITOR - WAIT FOR N CHAMBERS TO BE REVEALED ) 

1 ! CANIM—TBL FL.ASHEXIT GROTTOPAT 20 NULPAT 20 TBL> 

31 : KEY.TASK * TASK: K.TYP MYTYPE VB! ' KYNONE KEY-STATUS B! 

4!BEGIN 30 TIMER!-ON WAIT DI 

5!TOTAL-REVEALED.GROTTOS @ KEY-THRESHOLD @ > END 

61 BEGIN BEGIN 

7!NCOLS RND NROWS 2. END STARTsCHAMBER? END 

3!NOBODY:HOME:YET? END 
91 NONE VB! NOWC VB! 

101 SELF PUSH:OCR >TREASURE NODE! 

:i 1 1 KEY-S 

121KYSHOW KEY.STATUS B! 

14 1 

15 1 


BLK- i 

01( KEY REVEALER ) 

21 KEY1 ANIMi 1STWRITE XOR ON 

3 ! MYFLAG V'"- FLAG ! -ON DVECT.ON GO DI 

4iKYOPEN KEY-STATUS B! 

5!NULPAT ANIM! 1 TIMER!.ON GO 

61KEY-S 

71< NOW REVEAL EXIT CHAMBER > 

81 BEGIN 

91 STOP-COL B@ NOWC VB! START.ROW NOWR VB! ESTPOS 

10!GROTTOPAT AMIM! PLEASE.-UPDATE 

11 1 XOR--ON XPAND.ON 8 XPAND! 30 TIMER!-ON GO DI 

1 4 I 


01( REVEAL THE EXIT CHAMBER ) 

11GROTTOPAT ANIM! 1STWEITE 12 XPAND! XPAND.ON OR-ON 

311 TIMER!-ON REVEALWRITE ZGO DI 
41ESTPOS 

51FLASHEXIT ANIM! 

611STWRITE XOR-ON XPAND.ON 8 XPAND! 

7!MYFLAG V"'* FLAG!-ON GO KYGONE KEY.STATUS B! ? 


11 1 
121 

13 1 

14 1 








BLIO 


0 

i 


( MORE 


EXIT REVEALEE AND KEY WIDER ) 


4 

5 

6 


s HIDE:KEY BEGIN BEGIN 

NCOLS RND NITONS 2. END STARTs CHAMBER? END 

NOBODYsHOMEsYET? END 

2D UP TV 1 NO NR OVD ! TV:!. MONO OVD ! 

TVl ROLL ^TREASURE NODE! TV! KEY-TASK 5 


10 
11 



14 

15 


BLK= 4 

0!( ROUTINE TO END GAME ) 
112 END.GAME ?TASKS 


0 BEHIND PLYRV OVt BEGIN DUP WHILE 
BEHIND OV@ REPEAT DROP INCSCORE 60 
STOPme 1+B!'NOBREAK BZERO 5 


SWAP 5000 
TIMER!.ON 


+ SWAP 
WAIT 








FILE = P 
BLI<= 0 

0!( JOYSTICK ROUTINES ) 

1 i HEX ( BV~ JOYCODE BV= JOYLAST •) ( D800 DP ! *#*****•#*#*#**•«•** ) 

2! DATA JOYTBL -1 EL .1. B> -1 B, -1 B, -1 B, 0 B, 5 B, ..1. B, 

3!.1 B, 2 B, 7 Bv -.1. EL -1 B, -1 B, -1 EL EL 

4' - 1 Bt 1 Bj 6 B, -1 B, 3 B> 0 B, 5 B, -1 B, 

5! 4 Bv 2 EL 7 Bv -1 B, 1 B, -1 B, 1 Bv -1 EL 

6i < SUBR MY T. NT R PSW PUSH, H PUSH, 12 IN, CM A, IF AMI, 

7! JOYLAST H LX I, M CMP, A M MOV, OO, IF, IF A MV I, THEN, 

8!JOYCODE STA, H POP, PSW POP, SUI1 JMP, ) 

9! SUBR setsJovcc.de 12 IN, CM A, IF ANI, A E MOV, 0 D MV I, 

10!JOYTBL H LX I, D DAD, M A MOV, A ANA, RET, 

11!CODE GETSJOYCODE 

12112 IN, CMA, IF ANI, A E MOV, 0 D MVI, JOYTBL H LX I, 

13 ID DAD, M A MOV, A ANA, OC, IF, 0 H LX I, ELSE, 

14! A E MOV, D PUSH, 1. H LX I, THEN, H PUSH, NEXT 

15!DECIMAL --> 


!<- 1 


01( NEW SCAN 

ADJUSTER ) 

1!DATA CCWTBL 

. 3 B, 0 B, 1 

2!DATA CWTBL 

1 B, 2 B, 4 

3!F« scanr F= 

: n o b c 

41SUBR adJ-sc 

:a.n CASSEMBLE 


5!H PUSH, 0 B MVI, B DAD, M A MOV, A ANA, 

6!scanr JRZ, H POP, C A MOV, RET, 

7!LABEL scanr CCWTBL H LX I, B DAD, M E MOV, 0 D MVI, 

S!H POP, H PUSH, D DAD, M D MOV, 

9iCWTBL H LXI, B DAD, C A MOV, M C MOV, H POP, B DAD, 
10!A B MOV, M A MOV, 


11! A ANA, OO, IF, D A MOV, A 
12iC A MOV, RET, THEM, D ORA, 
13!LABEL none B A MOV, RET, 


ANA, 
n o 9 o 


n o b o 
JRZ , 


JRNZ, 

E A MOV, 


14 I ASSEMBLES 


BLK 


O 


C INTERRUPT 
CODE ADJ-SC 


LEVEL 
AN EXX , 


.JOY MONITOR ) 

B POP, H POP, 


2iadJ-scan CALL, A L MOV, 0 H MVI, H PUSH, EXX, NEXT 
3!BV= OBJECT-MOVIMG 
4!F= RVRS 


SUBR 
TBDES 
s e t s J 


JOYCHECK <ASSEMBLE 
:T TCHOSTAT Y BITX, 
o yc ode CALL, 


OBJECT-MOVING LDfi, A ANA, 
RNZ» DISTANCE 1+ Y A LDX, 


RZ, 

A ANA, 


10 


O-C, IF, PLYRV ASSMSV + LDA, ASC001. 

PLYRV MAXDIST + LDA, DISTANCE M- Y 
CY-l IF, 


CPI, OO, IF, 

S U B X , C 0 A S T Z 0 N E C P I, 


1110 H LX I, PLYRV DELTADIST + SHLD, THEM, 
12 ! THEN, PLAYERVELO LHLD, PLYRV DEL TAD I ST 


1 


THEN, RET, 
+ SHLD, 


14 

*i 







FILE 
DUO 
0 
1 


4 

5 

6 
/ 

9 

3.0 


( CHECK FOR REVERSAL ) 

CMA, 7 ANI i NOWD Y E LDX, E CMP, RVRS JRZ, 

0 D MVI, CWTBL H LX I. D DAD, M CMP, RVRS JRZ, 
CCWTBL H LX I, D DAD, M CMP, RNZ, 

LABEL RVRS 

REVERSES DIRECTION CALL, HALT NOW CALL, 

NOWD Y A LDX, RRC, RRC, RRC, A VANGLE Y STX, RET, 
ASSEMBLE!)' 

SUBR PL.M JOYCHECK CALL, PILOTS CALL, RET, 


11 

13 

14 

15 


DUO 4 

0!( CHECK FOR PLAYER ESCAPING INTO EXIT CHAMBER ) 

1 I CODE ESCAPE? KEY-STATUS LDA, KYOPEN CPI , 0=, IF, 
2! B PUSH, Y PUSHX, vaddr LIV'D, 

3!STOP-COL LDA, NQWC Y CMPX, 0“, IF, 

4UM0WR Y A LDX > START-ROW CPI, 0=, IF, 

5!( WE WIN! . SHAZAM! ) 

6!STOPme H LX I, M IMR, < SHUTUP ) 

7!A XRA, NOBREAK STA, 

8!THEN, THEN, 

9!Y POPX, B POP, THEN, NEXT 

10 ! -.> 

11 1 


B L K- 


O 

1 


( PLAYER HUS IAUE 
F= DISH 


INTERFACE JUNK 


> 


2!SUBR dishes <ASSEMBLE 0 HOSTAB H LX I, 

3!LABEL DISH M E MOV, H INX, M D MOV, H INX, D A MOV, E ORA 
4SXCHG, l-IOSSV B LX I, B DAD, M A MOV, HSATP CPI, 0=, IF, 

5!HSFREE M MVI, MYFLAO HOSSV . B LX I, B DAD, 1 M MVI, THEN, 

6 i XCHG, DISH JMPR, ASSEMBLE!) 

7!CODE DISHOS B PUSH, dishes CALL, B POP, NEXT 
Si CODE HALTER HALTNOW CALL, NEXT 


r: 


11 
3. jC. 

14 






FILE = P 
BL!<= 6 

0!( CHECK VECTOR FOR INTERCEPT WITH OTHER VECTORS > 
1. ! ( ROUTINE TO FIND INTERCEPTORS, IF ANY ) 

21 ( ENTRY;: BC= NEARNESS X AMD Y, HL= CHECKLIST ADDR 
3i( IY= SUBJECT VECTOR ) 

4! ( RETURNS 7.~ NOFIND NZ= FIND, IX* FOUND THANG ) 
5!F= C s UH 

6 ! SUBR C: U 5 FI < ASSEMBLE 
7!LABEL CsUH 

SIM E MOV, 1-1 I NX, M 0 MOV, H I NX, D A MOV, E ORA, ■ 

9!RZ, D PUSH, X POPX, 

101FIOSSV X A S....DX, FISFEEE CPI, 0=, IF, 

11 I PRO X IM11" Y-CHECK CALL, RN Z , THEN, C s UH JMPR, 

3,21 assemble:;- 

3.4 I 


BLK= 

0 

1 


4 


7 


10 
11 
12 
1 '“{ 

14 


C CHECK VMAX SWITCH ) 

HEX 

CODE VMAX? 0 FI LX I, 12 IN, 5 A BIT, 0=, IF, FI I NX, 
H PUSH, NEXT 

CODE SETVEL EXX, FI POP, Y PU8HX, vaddr LIV'D, 

L DELTADIST Y STX, H DEL TAD I ST 1+ Y STX, PL AYER VET... 
Y POPX, EXX, NEXT 
DECIMAL .> 


O I 
1 I 

I 

! 

4 ! 

5 I 

6 ! 


10 
1 1 
. 12 

14 

•i cr 


( CHECK PLAYER INTERCEPT WITH OTHER VECTORS ) 

0 C-= EATEN 1 C~ EATHOSI- 

DATA CHECKLIST MONVI , M0MV2 , M0NV3 , M0NV4 , 0 , 
HEX 0202 DECIMAL C= XYB0UND3 
( PLAYERS INTERCEPT CHECKER, RUNS AS HOOK ) 

SUBR P: 15 C FREEZE'? CALL, RNZ, EXX, 

CHECKLIST H LX I, XYBOUNDS B LX I, CHECK;VECTORS LIST 
0-0, IF, 1. A MV I, PLAYERDEAD ST A, FREEZE CALL, 
EATEN FLAGCOOE X MV1X, A MYFLAG X STX, ( SET EATEN 
3 A MVI, 4 OUT, ELSE, 

( ANY HOSTAGE ABOUT? > 

0 HOSTAB 1-1 LX I, - XYBOUNDS B 131, CsUsH CALL, 

0-0, IF, 1 MYFLAG X MVIX, HSATP HOSSV X MV.IX, THEN 
A XHA, THEM, 4 OUT, 

EXX, RET, 


CALL 

FLAG 


THEN 

0 SHI.... 












FILE = P 
BL!<= 9 

0!< EXPL0RE-MA2E ) 

1i: ROTUND 5 TASK ‘ DI‘ 

2iH-P-D DJSPF VB! ESTPOS 

3! ROTROTY AMIM! X OR-ON l ST WR ITE PRTBM T IMEBMAX! 







FILE « P 
BLK-- 12 

0!( YET MORE PLAYER CONTROLLER > 

1!DEST? IF ARRIVE:NODE FROPDELTAS 

2!ESCAPE? TREASURE:CHECK DI ROTROTY AMIM! THEM 

310 END ; DECIMAL —> 

4 I 



10 
11 
12 

13 

14 

15 





BL1<= 1 

0!CSTKH 

1 i S U B R ii IS IN T ( m i s s 1 e i n t & r r u p t t e s t ) 

2! PSW PUSH, B PUSH, D PUSH, H PUSH, EXX, EXAF, 

3! PSW PUSH, B PUSH, D PUSH, H PUSH, Y PUSHX, X PUSHX, 

4! ( 12 IN, CM A, 1.F AN I, 

5! .JOYLAST H LX I, M CMP, A Ml MOV, OO, IF, IF A MV I, THEN, 

6 i JOY CO DIE ST A, ) ( HOT ROD THE PLAYERS VECTOR ) 

71HOTFLIP H LX I, M A MOV, A I NR, i AN I, A Mi MOV, 

8 i PLYRV Y L X I X , 0», IF, PL.Ml CALL, 

9!ELSE, 2 A MVI, HOTROD CALL, < REVV Y LX IX, THEM, 2 A MVI, > 

101( HOTROD CALL, ) 

11!THEM, 

121 SUI2-NP JMP, 

131 s MY PUP MY PUP M.IS-- 1 NT SUI1V I 1 HO RGB OUTP 5 STK> - > 

14 i 

15 ! 








FILE « M 


0 ! ( 
1 i 5 


0 

INDEXER AND VISABLE MONSTER WRITER 
I s M MONVBYTES MQNV1 SWAP - 3 



3!SUBR vISMONWRITE ( VISABLE MONSTER WRITER ) 

4.1 VBNOERASE VLOGICSTAT Y BITX, 0=, IF, 

5! VOF’ATH Y A LDX, VOPAT Y ORAX, C<>» IF, 

6! - VERASE CALL, THEN, ( don't erase* if no pattern > 

7! ELSE, VBNOERASE VLOGICSTAT Y RE8X, THEM, 

8! VBNOWRITE VLOGICSTAT Y BITX, 0~, IF, INTCPT IN, VWRITE CALL, 
9! TBI NT CPT-CHK TVliROPT Y BITX, 0<>» IF, INTCPT IN, 

IDS A ANA, Q~t IF, TBINTCPT TCHGSTAT Y SETX, 


i i 
12 

13 

14 

15 


TBNOVECT TVMROPT Y SETX, THEN, THEN, 
ELSE, VBNOWRITE VLOGICSTAT Y RESX, THEN, 
1 1 - a n & 11 :i. o n , .1M P, - > 


0 I < MONSTER STUFF ) 
1 I DECIMAL 


2!s BANISH"MONSTER BEGIN BE 

31 NOWS PLYRV OVB@ ABS 2 > 

41NOWR PLYRV OVB© ABS i > 


GIN NCOLS RND DUP INTO VB! 

END BEGIN NROWS RND DUP IMTR VB 1 
END INTO VB© IMTR VB@ NOBODYsHOME 


SI END 2DROP 3 

31 s MONGO INTERCEPT.ON DVECT.ON 

7 ! VISE LAG VB@ IF"' MYFACE V@ ANIM! VI SMONWR I TE ZOO DI 


8! INTERCEPT? IF 0 VISE!..AG VB! THEN 

9!ELSE EYEBALLS.PAT ANIM! GO DI INTERCEPT? IF 

10 I THEN COGO 3 


VI8FLAG VB! THEN 


Ills FREESLAVE DI MYSLAVE V@ IF MYSLAVE VS MYFLAG + BONE 
12 1 < 0 MYSLAVE V@ SNATCHER + ! ) 

1310 MYSLAVE V! THEN 5 



BLIO 2 

01 ( MORE MONSTER STUFF > 

1IC COMPARE POSITION IN D AND E WITH POSITION IN VECTOR > 

2!SUBR compos D A MOV, NOWR Y CMFX, RNZ, 

3!E A MOV, NOWC Y CMPX, RET, 

41 CODE CHASEPLAYEE EXX, X PUSHX , Y PIJSHX, 

5 I PLYRV X LX IX, vaddr LIV'D, 

6!NOWR X D LDX, NOWC X E LDX, NOWD X C LDX, 

/ ' move * node CALL.-, movecheck CALL, L'Y , IF" , 

S!compos CALL, 0=, IF, ( IF AT PLAYERS BEST, GRAB HIS SOURCE ) 
91 NOWR X D LDX,. NOWC X E LDX, THEN, 

10 ID IMTR Y ST X, E INTO Y STX, 

11 I THEN, EXX , Y POPX, X POPX, NEXT 
12!( GO ANYWHERE I AM NOT NOW ) 

13!s VAMOOSE BEGIN NCOLS RND INTO VB! NROWS RND INTR VB! 

14 I ON:TARGET? NOT END ; 








BLK~ 3 

0!( MONSTER TASK ) 

1 ! HEX TABLE MONVEL 60 , SO , AO » CO , 1.00 , DECIMAL 
213 RODAM? MYFACE V© THEWAROD1. = 3 
3!DECIMAL 

4!! MONSTER.TASK ? TASK: DI 


5!RETURN:INITIAL3 POSITION 
6;ESTPOS 

7!MYFACE V© ANIM! XOR-ON 1STWRITE BEGIN DI 
8 IONS TARGET? IF RODAN? IF 

9\1 ELSE SMARTS B© RND THEN IF CHASEPLAYER 
10 ION;TARGET? IF VAMOOSE THEN ELSE VAMOOSE THEN 
111-' RECON SET CO COGO DI ZEROTIMEB 


12 


14 

15 


BUO 4 

0 I THEM FOLLOWTRACK NOWD VB! 

1. ! GAME# @ RODAN? + 

2i4 MIN MONVEL © DELTADIST V! DEPART;NODE 
31 C HAVE MONSTER CRAWL ABOUT ) 

4! BEGIN MY FLAG V"'- FLAG ! -ON 
5; ■" MONGO SET CO COGO DI 


10 ! 

11 ! 

12 ! 

13 1 

14 ! 

15 ! 

BLK= 5 

OIL BANISHMENT STUFF > 

1iFLAG? IF 0 DELTADIST V! 

2!BANISH;MONSTER INTO VB© BANC B! 

31INTR VB© BANR B! 

4! •" RECON SETCO COGO DI 
5!0 MYFLAG VB! FLAG-OFF 

6!( WANDER BACK TO WHERE MONSTER LAST CAME FROM > 

7!BEGIN ESTPOS ZEROTIMEB 

8 SONS TARGET? NOT IF FOLLOWTRACK NOWD VBi 
9!DEPART sNODE EX ITVEL DELTADIST V I 
10! BEGIN •" MONGO SETCO COGO BEST? END ARRIVE* NODE 0 
11!ELSE 1 THEN END 
12! FREES!... AVE 

13!UNFREEZE 1 ELSE 0 BEST? IF ARRIVE*NODE DROP 1 THEN THEM 
14 SEND 0 END ? 

15!DECIMAL ;—> 






file: = ri 

BLK= 6 

O!( MONSTER MASH > 

11 STABLE MRTBL 0 B, 0 B , 2 B, 2 B, 

2! STABLE MCTBL 0 B, MCOLS 1 B, 0 B, MCOI.. S 1- B> 

31 s MONSTERMASH MONSTERCOUNT @ 0 DO I MCTBL BO I MRTBL. B@ 
4!I I “ M SETT INITIALSMCCR X 0= IF THEWAROD1 ELSE THESPDR 

5! THEN I ISM MYFACE 00! I l:M MONSTER.TASK 

6 !LOOP ? 


10 
11 


13 

14 

15 







FILE = E 
BLK= 0 ' 

( PRE VGER ACTIVITY ) HEX 
XC? IFTRUE s CLMUS 0 BGMV TLENGTH FILL 5 

CODE CRAMIT 0D800 H LX I, BEGIN, 0 M MVI, H INX, H A MOV, 
OF"0 CPI, 0=, END, NEXT 
OTHERWISE I! CRAM IT 5 : CLMUS 5 I FEND 

s VG MYPUP DI GRAM IT SPARKL.ES-OFF CLEAR: SCORES ZAPsVECT 
S 0 DO 8 I OUTP. LOOP 

4 DUP REMAINTNG-LIVE3 ! INITIAL.LIVES ! 

GAME-OVER ZERO 
GAME# ZERO 

BEGIN TOTAL.PATHS ZERO REVEAL-ACTIVE BZERO ARROWFLG BZERO 

CHEAPRMD 0 RND# I 
MAKE”MAZE MD 
SCRERASE 

< BLUER ILL ) — 5. 4000 SCO FILL 


BL.K= 1 

0!( MORE EXPLORE > 

I!DI CLMUS MYPUP AMUSE 

2!IS VERBL OUTP -1 HORCB OUTP 

3 ! M 0 B R E A !< B 0 M E Z ft P s V E C T 

4 ! C ■“ Ss V 

5 S HIDE s TREASURE JA11... s HOS 

6 INPLAYERS ZERO PLAYERUP ZERO 

7 ! REVEALED-PATHS ZERO .1. TOTAL-REVEALED.GROTTOS ! 

1 0 ! 
i 5. i 


0!( PRE VGER ACTIVITY ) 

:l. I STAET-COL t DUP PLYRV NOWC OVB ? 

2 IREVV NOWC OVBI 

3 I START.ROW DUP PLYRV NONE OVB! 

41REVV NOWR OVB! PLAYERDEAD ZERO 

5 S 3 GAME# @ + 4 MIN MONSTERCOUNT ! STAFTTEXCITE BACK 

6 i GAME# @ 1-t- 4 * 26 MIN KEY.THRESHOLD ! 

7!GAME# @ 2/1+ SMARTS B! FREEZEFLAG BZERO 

8 IP1SV DISPP1SCR P2SV DISPP2SCR 

9 IBKGV INITIALsREVEAL 

101PLYRV ROTUND ( JOYV JOYSTICK-MONITOR ) 

11. IMONSTERMASH TV 1. KEY-TASK 
12'D 5R"L 8 7 OUTP 


1 4: 


o 

1 


41 


10 
11 

13 
1 -4 










FILE = E 
BLK= 3 

„ 0!( YET MORE ) 

1 ITT GAME# 1 +! NOBREAK B@ DUP 0= IF DI MYPUP 0 TVVS TWL FILL 
21 TVl END-GAME T"T THEM 
31 ( 8 0 DO 8 I OUTP LOOP ) 

4 I GAME--OVER B@ OR EMUS IC END 1 


HEX 

: GAMELP BEGIN CRAM IT VO BEGIN 3.0 INF’ OFF 
DECIMAL .> 


END 0 END 


10 
11 
12 

14 

13 




